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I. INTRODUCTION 


A. BACKGROUND 

The Naval Posteraduate School (NPS) utilizes approximately fifty Zenith 
H Z-100 microcomputers in the microcomputer laboratories of the Computer Science 
Department. There were many reasons for choosing this particular computer. foremost 
of which is the hardware architecture (Ref. 1] and the availability of support software. 
The H'Z-100’s central processing unit (CPU) includes an INTEL 8085 8-bit processor 
and an INTEL 8088 16-bit processor. The simple architecture and instruction set of 
the 8085 processor supports the popular CP. M operating system and 1s compatible 
with 8080 code. The more complex architecture of the 8088 processor is coimpatible 
with 8086 code and includes more internal registers (some usable as either 8 or 16-bit). 
extended addressing modes, and a more compleX memory managemient scheme using 
segment registers. The 8088 processor supports the more advanced CP, M-86 and M5- 
MOS operating svstems. 

An important feature of the H’Z-100 is its displav versatilitv. The basic H,Z-100 
includes an internal monochrome display and allows the addition of an additional 
external color monitor. The color monitor is of medium resolution with 640 horizontal 
and 225 vertical pixels (640 X 312 in the interlace mode). Three 64k pages of video 
RAM memory provide eight colors (or eight intensity levels with a monochrome 
monitor). 

A primary function of the microcomputer laboratory is to support computer 
sclence courses providing special emphasis on tactical computer applications. 
According to Department of Defense policy [Ref. 2], “The Ada programming language 
shall become the single, common computer programming language for defense mission- 
critical applications. Effective 1 January 1984 for programs entering full-scale 
engineering development, Ada shall be the programming language.” To assist in 
meen? this requirement. NPS provides courses which include the use of Ada in the 
development of tactical program applications prograins. Most of these programs are 
memeom the Et 7-100 computers using the JANUS ‘Ada coinpiler. To date, several 
validated Ada compilers have been approved for specific coinputer systems, with manv 


magne expected to be approved in the near future. However, as Patrice Wagner points 


out [Ref. 3] there has been little measurable response within the computer graphics 
industrv. An improvement in this area can be expected with the acceptance of the Ada 
Binding to the Graphical Kernel System (GKS) [Ref. 4] bv the American National 
Standards Institute (ANSI) ASFI3 coninuttee on graphics standards. However. we 
cannot sit back and wait for industry to provide all the tools necessary to conduct Ada 
graplucs education and research. Widespread use of Ada can be expected in the near 
future and with that use there will be increasing requirements for individuals with Ada 
graphics knowledge. The NPS has an obligation to assist the Navy in meeting those 


educational requirements. 


B. PURPOSE 

It is the intent of this thesis to develop an Ada language graphics programnung 
capability by developing a low level design and partial implementation of an Ada 
graphics library which can be expanded to include a subset of the Ada language 
binding to the GKS. Functions to be included will be those primitives necessary for: 

e clearing the screen 

© setting a pixel 

e drawing a line 

¢ selecting a color 

¢ filling polygons 

® cursor control 

These basic primitives will be implemented using S086 assembly language 
embedded in an Ada package. The CP; M-86 operating svstem and the JANUS Ada 
compiler will be used for this implementation. 

It is expected that the primary use for this software will be in courses which 
emphasize tactical applications of computers. [t is becoming more and more common 
to find graphical displavs in tactical systems. The ability of computers to provide 
graphical displays whicli aid in tactical decision making is widely recognized and the list 
of tactical applications utilizing graphical displays can be expected to grow as faster 
and better graphics displavs are developed. 

It is anticipated that this software will assist in gaining an insight into the 
feasibility of developing a GKS implementation for Ada on a nucrocomputer. As an 
Immediate benefit, ic will aid in the development of Ada graphics programs on the 


H Z-100 computer. 


LO 


C. THESIS ORGANIZATION 

Chapter Il begins with a brief overview of the architecture of the H, Z-100 
computer. The overview is presented to assist the reader in understanding the selection 
and implementation of the graphics algorithms. Next there is a brief discussion 
explaining the use of the JANUS,Ada compiler and CP, M-86 operating system. 
Included in this discussion is a description of parameter passing procedures in 
JANUS Ada. The remainder of Chapter II is devoted to providing a detailed 
description of the implemented graphics routines. 

Chapter III provides a description of the test/demonstration programs listed in 
Appendices B-E. Also included in this chapter is an evaluation of the H, Z-100 color 
graphics capabilitv. Shortcomings and svstem hardware performance are discussed. 

Chapter IV includes recommendations for further research and program 
development using the H’Z-100 computer. 

Chapter V is the final chapter and includes the conclusion and general comments 
pertaining to the use of nucrocomputers and Ada in graphics programmung. 

Appendix A is a user’s guide which describes the procedures available in the -\da 
graphics library. Also included are some programming tips on usage of the hbrarv 
procedures and sample procedure calls are provided as examples. 

Appendices B-E are program listings of demonstration programs written in Ada. 
They are provided to demonstrate the use of the Ada graphics librarv as well as serving 
as a supplement to the user’s guide. 

Appendix F is a listing of the specification package for the Ada graphics librarv. 
The specification package defines the formats of all externally callable librarv 
procedures. 

Appendix G is the assembly code listing of all procedures contained in the Ada 


graphics library. 


1] 


If, ALGORITHMS 


a H/Z1007ARCHITECT ORE 

The following overview of the H,/Z-100 architecture is presented in ordenere 
clanfv the method of implementation of specific algorithms. Figure 2.1 is a block 
diagram of the basic architecture of the H Z-100 computer. 

NPS’s H;Z-100 computers are in the process of being upgraded to include the 
Model ZVM-1330 color monitor, 192k of on-board cpu memory and three 64k pages 
of video RAM. 

The display screen is formed by a matrix of 640 horizontal and 225 vertical 
pixels. Each pixel is mapped to a bit in each of the three color planes (red. green, and 
blue) in video RAM. Display management 1s provided by the video processor's CRT 
controller (CRY-@.. 

The CRT-C has two modes of operation: the character based mode and the pixel 
based mode. In the character based mode, the CRT-C 1s programmed for nine scan 
lines per character, 80 characters per line and 25 lines per screen. In the pixel based 
mode, the CRT-C 1s normally programmed to control a matrix of 640 X 225 pixels. 

Mapping of video RAM to the sereen is performed by the CRI-C to allom 
scrolling of the screen and management of displavable nondisplavable data. Mapping 
of the display to phvsical addresses in video RAM is organized such that 128 
(numbered 0-127) consecutive bytes are allowed for cach scan line. Howeversonia. 
of the 128 bytes are used to control display of the 640 pixels per scan lineseaes 
80-127 of each line must not be used or erroneous data mav be displaved. 
Additionally, the 225 displayable scan lines mav be considered to be in sets of 16 lines 
of which only the first nine lines of each set are dismian amie 

When operating in the character based mode, the CRT-C 1s programmed to map 
around the non-displayable video RAM. However, in the pixel based inade mein 
necessarv to incorporate a mapping algorithm into graphics routines. This means that 
of the 400 scan lines, only 225 are displayable. In addition, the CRT-C is normally 
programmed so that the bottoin character row (9 scan lines) is zeroed during vertical 
retrace time. This is done to keep uninitialized data from being displaved during 


scrolling. This means that only 24 of the 25 character rows or 216001 Stim 


MAIN BOARD 





FLOPPY 
a DISK 
CONTROLLER 
T | 7 Ugee| EXTERNAL 
8-INCH 
DRIVE 
m| INTERNAL 
5.25 INCH 
DRIVES 
8041A 
KEYBOARD 
PROCESSOR 
__| WINCHESTER 
| CONTROLLER 


KEYBOARD POWER 





INTERNAL 
SUE UY 10-MB 
WINCHESTER 
( 
VIDEO BOARD 
INTERNAL 










=~ MONOCHROME 


MONITOR 
GREEN F 
alee 


RED __ 
= 


EXTERNAL 
na RGB 
MONITOR 





Figure 2.1 EI’Z-100 Block Diagram. 
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displayable scan lines actually display data. The Ada graphics hbrary has been 
designed to work within these restrictions in order to maintain compatibility with 
existing HH, Z-100 software. Figure 2.2 illustrates the display matrix including the scan 


line and pixel numbering system. 
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Figure 2.2 Display Matrix. 


There are two ways in which to control writing into the individual color planes. 
The first method 1s by programmung the video control register of the video logic board. 
With this method, when a write enabled color plane is accessed, all write enabled color 
planes are simultaneously written to. For example, if all three color planes are write 


enabled and the green color plane is written to, then the corresponding addresses in the 
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blue and red color planes will also be written to. However, this feature was found to 
be unsatisfactory when constructing a graphics picture consisting of multiple colors 
and adjacent or overlapping objects. Under these conditions, it was discovered that the 
onlv color plane which could be guaranteed to contain correct data was the one which 
was directly written to. Therefore, the algorithms implemented in the Ada graphics 
Mita, Utilize tae second mietiiod which involves direct control over each of the three 
color planes. This means that the implemented algorithms must access all three color 


planes for each pixel that is set. [Ref. 1: pp. 4.30-4.38] 


Taxi! 
GOrPOR PLANE ADDRESSES 


COLOR _ PLANE RAM ADDRESSES 
blue GCCO0O = OCrErE 
rea OPOOCOOr= OLDER EE 
green OEO000 - OEFEEE 


To produce color. the video RAM is divided into three main colors: red. green. 
and blue. Video RAM memory mapping of the three color planes 1s provided in Table 
1 with all addresses in hexadecimal. The pixel seen on the color monitor 1s actually 
Semmaosed Of three superimposed pixels, one in each color plane. By selecting 
combinations of the three basic colors. eight different colors may be displayed as 
indicated by Table 2. 


B. JANUS/ADA 

An overview of the JANUS'Ada compiler [Ref. 5] and the CP/M-S6 operating 
system [Ref. 6] relating to the implementation of the Ada graphics librarv 1s presented 
to assist the reader in understanding the methods used to implement the graphics 
algorithms. The graphics routines are available to an Ada language program bv 
making to library routine ADAGRAPH.LIB (Appendix F). 

ADAGRAPH.LIB is implemented as an Ada specification package. That 
package contains the specilications of the callable librarv procedures plus a list of the 


variables used by the Ada graphics librarv assembly code. The assembly code 1s 


included in Ada assemblv package ADAGRAPH.ASM (Appendix G). The following 
steps are used to compile. assemble. and link the Ada graphics hbrarv. 

(1) JANUS ADAGRAPH.LIB 

(2) JASNI86 ADAGRAPH 

(3) JLINK ADAGRAPH 







TABI ES 
COECK [Aer 






GREED RED Bou DISPLAY COLOR 

0 0 O black 

O 0 al blue 

0 a 0 red 

O al al magenta 

ak O O green 

il 0 1 cyan 

if it 0 yellow 

di a at white 


Parameters are passed in Ada by pushing them onto the system stack. Discrete 
and access data tvpe parameters of mode IN are passed bv value. All other data tvpe 
paranicters and modes are passed by reference. Lpon entry to a procedure. the top of 
the stack contains the return address. Parameters or parameter addresses appear on 
the stack with the last parameter nearest the top of the stack. Figure 2.3 1s an example 
illustrating the format of a procedure specification and the corresponding location of 
paramieters on the svsten) stack when the procedure 1s executed. 

If the parameters passed are only of mode IN. then the assembly procedure must 
remove those parameters from the stack and leave only the return address on top of 
the stack before executing a RET instruction to return from the procedure to the 
calling program. If the parameter hist includes anv mode OUT or IN OUT parameters, 
then the stack must be in the same configuration upon exit from the procedure as it 
was upon entry. 

When it 1s desired to access parameters on the stack without altering the stack 
contents, then the BP register should be used. The following steps thlustrate how this 
can be performed. 


(i) Moy BE) se ;Copy SP register to BP register 
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Peoegoewac INOUIRE COLBOR( xpos, y.pos: in INTECER; 
Coron ele INIECER. ; 


SP <22> ecececrceceereee--- <e-- Top of Stack 
| Return Address | 
SPAQ aos .6 555546 -- 4545 455- 
iImeOloOf = adamcss || 
SPOS coe 4o 555565655555 88-— 


micite 2.5 Parameter Passing. 


(2) MOV AX, [BP+2] ;Move last variable to AX register 
Goel yee. | Prt! -Move next to last variable to BX 


C. GRAPHICS ALGORITHMS 

The following paragraphs provide a detailed explanation of each graphics routine 
in the Ada graphics library and the algorithms used to implement those routines. 
Several of the low level subroutines used to implement the library are not available to 
te user and are therefore not listed in the Users Guide (Appendix A). Only those 
graphics routines that have an apparent use in an Ada language program were made 
extctnally callable. 

ie lear Sereen (CLS) 

Vitei@lsenouime willeclear the screen in one frame tinie (approximately 16.7 
ms for 60 Hz operation). The CLS algorithm [Ref 1: p. 4-46] is described in the 
following steps: 

(1) Input and save the video status from I O port DS(hex). 
(2) Blank the screen by outputting OF(hex) via I O port D8(hex). 


mY 


(3) eet ay i oll oltre beconme! por WD hex) Wns sicnals the video 
controller Re Hiembitemlames will be set to zero. This step 1s performed bv 
ExceuMNec amnInput, modify, and olitput sequence. 


(4) Output a “O" to bit_3 of the A control port D9(hex). This enables the video 
processors CLRSCRN signal. 


(5) Wait for one frame period to allow time to reset all of video RAMI. 
(6) Output a “1” to bit 3 of port D9{hex). This disables the CLRSCRN signal. 


(7) Restore video status that was saved in step | bv outputting the saved status 
via port DS(hex). 


2. Color Selection 

When the color routine 1s called, it 1s passed an integer identifving the selected 
color. In normal operation. once a color has been selected, 1t remains the systemmecnes 
until changed by another call to the color procedure. 

The color procedure uses the color code parameter to perform twoupagre 
functions. First, it sets each of the three color plane variables to base addresses which 
will be used by other procedures to initiahze the E segment register for addressing the 
the required color planes. Second. a control word (78 hex) is output to the video 
control register via | O port DS({hex). The control word disables the simultaneous 
Write capability of the video controller. Table 3 lists the data used to control color 


selection. 


TAB 
COLOR COTS 


ColorwCode “Colton 


white 
cyan 
magenta 
blue 
yellow 





In nornial operation, control word bits 0. 1, 2, 7 are set to 0 Dit 31S Semeee 
“1” and bits 4-6 are used to control the simultaneous write capability of video RAM. 
The color routine does not affect the contents of the E segment register. but simply 
initializes variables which will be used to modify the E segment register as required. 
This is done to maintain compatibility with other H. Z-100 software which uses the E 
seginent registeroce.2.. the standart Os libran 

3. Video Ram Addressing 
Mapping of the video to the screen is accomplished tn two steps. The first 1s 


performed by the ADJ_SL procedure which accepts a Y position in the range 0-215 


{$ 


and maps that position to a displavable scan line. This mapping is described by the 
equation Scan_Line_ Number = Y+(Y Mod 16)*7. This function ts implemented by a 
simple counter which adds seven to the scan line count for each block of 16 lines. Step 
hy Omis perloimedepy the REL VID ADDR procedure. This procedure uses the A 
position and scan line number to calculate the corresponding relative byte address in 
video RAM. This is a relative address since it is independent of the color plane. 
Relative byte addresses are calculated using the formula: 

Relavive Address = Y * 128 + K Mod 8. 
Pnionpuedaddress calculation, error checking is performed to insure that: 

O<=X<=639 and O<=Scan_Line_ Number<=376. 

4. Pixel Display 

Displaying of individual pixels is performed by procedure SET _PINEL. 

Igecediire Sel PIXEL accepts an (X.Y) coordinate and performs the following steps: 


(1) Calls procedure ADJ _SL to map the y coordinate to a displavable scan line. 


fm Calls procedure REL VID_ADDR to get the relative bvte address. 

(3) Calculates the relative bit position within a byte based on the x coordinate. 
(4) Initializes segment E to provide the base address for the desired color plane. 
ets the Selected pixel Dy writing to the relative address. 

(6) Repeats steps 4 and 5 for each‘ of the three color plane variables. 


LT) 


. Line Drawing 

Line drawing may be performed by either procedure DRAW_LINE or 
procedure DRAW MULINE, The two procedures use the same algorithm for line 
drawing with the difference being in the wavy that intersecting lines are displaved. 
Procedure DRAW LINE always displavs the most recently drawn line on top while 
procedure DRAW_MLINE mixes the colors of crossing lines at the point of 
intersection. The line drawing algorithm is an adaptation of a general integer digital 
differential analvzer (integer DDA) algorithm described by Mare Berger [Ref. 7: pp. 
4{-45]. The general integer DDA has been expanded from four to six cases and a 
smoothing function has been included. The two additional cases were added to handle 
Bilewspecial cases where a line 1s either vertical or horizontal. The smoothing function 
iaseadded tO improve symmetry in the staircase effect which is inherent with raster 
scan displays. 
iiemintecer ix algoritlin 1$ an iterative process which operates by taking 


unit steps along the X and, or Y axis beginning at line start and continuing to line end. 
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The direction of each step is determined by an error variable which identifies whether 
the present position 1s above or below the ideal hne. After each step, the error variable 
is updated based on the direction of movement. The initial value of the error variable 
is determined by the smoothing function which biases the error variable so that the 
first pixel step in one axis 1s delayed based on the slope of the line. Without this bias 
the DDA algorithm frequently makes an erroneous first move. An example of an 
eXtreme case illustrates this point. For example. if a near horizontal line with a single 
pixel change in Y 1s drawn by the unbiased algorithm the pixel step will occur at hne 
Start. However. in the biased algorithm the pixel step will occur at the approximate 
midpoint of the hne. This provides an obvious enhancement in synimetrv to a staircase 
oboe 

Implementation of the six cases in the hne drawing algorithm assumes that the 
input coordinates are ordered so that Y START <= Y_END. This ordempome 
enforced bv the line drawing procedure prior to plotting a line. 

In the description of the six cases which follows, initial values of X and Y are 


respectively X_START and Y_START and the following definitions apply. 


© xX A GOoradi nate 

ae 4 Y "eoordinace 

¢ X_ START X coordinate oc@elinewecare 
ay So bake Y coordinate of Jane steams 
¢ X_END X coordinate of line end 

¢ Y END Y coordinate of line end 

¢ DX AJ END = "KX Stare 

oy YIEND =. YoStaRe 

ae error 


(by ee =O 


THis 1S a Nori zontal ine 


pha) ale: we = bal tag ss 
Xx: =X_START 
Yo =) Js 


end initialize 

repeat until (X=X_END) 
Ie 
plows (7 


end repeat 
one) ee — PDX > Of, and DY > O. 


This is a line with positive slope between O and l. 


LhgeeiealLZe 
X: =X_START 
Ye= rs lArT 


Eee 7 DyYr i) 

enews tlalize 

repeat until (X=X_END & Y=Y_END) 
pein S10) Te wlel=se! 


X: =X+1 

Eek by 
otherwise 

X: =X+1 

ae, 

E: =E=DX+DY 
end if 


end repeat 
(fo) Pee away, DK > 0, and DY > 0. 
This is a line with positive slope greater than l. 
initialize 
X: =X_START 
Yoav STARE 
B= )7( DxXe1) 
end initialize 
repeat until (X=X_END & Y=Y_END) 
Peoce-0 )ethen 


6 ae 

oye 

E: =E-DX+DY 
otherwise 

ee ae al 

E: =E-DX 
end if 


end repeat 


CaN De OF 


This is a vertical line. 


initialize 
X: =K_START 
Y: =Y_START 


end initialize 
repeat until ( Y=Y_END) 
<2 Sye) 
end repeat 
(5) DY += ABS( DX), DX < 07 anew ame. 


This is a line with negative slope between -1 and 0. 


ny @ talaga etal: lela 
xX: =X_START 
1 =L ofA 


BE: =DX/( DY+1) 

end initialize 

repeat until (X=X_END & Y=Y_END) 
Lio boo arene it 


Cr. el 

Be =E+) o 
otherwise 

X: =X=-1 

ee et 

E: =E+DX+DY 
end if 


end repeat 
(6) ABS( DX) < DY, DK < 0, “ange ace 
This is a line with negative slope less than -l. 
initialize 
= See 
YU =YISTARE 
Bee Die ot i) 
end int eualize 
repeat until (X=X_END & Y=Y_END) 
15 3GE <0). tiem 


X: =X-1 

Wea it 1 

2-2 Deby 
otherwise 

y: =Yr1 

E: =E+DX 
end if 


end repeat 
6. Circle Drawing 

Gincle"drawme 15 periomned by passine the @.Y) c@ordinate of the circle 
Seamer aid a radius to procedure CIRCLE: The algorithm executed by the cirele 
drawing routine 1s an tnplementation of Bresenham’s circle algorithm described by 
Hearn and Baker [Ref. 8: pp. 67-69]. In this implementation. the algorithm has been 
modified to include a correction factor to compensate for the N:Y pixel ratio of the 
raster display. 

Bresenham’s algorithm takes advantage of the svmmetrv of a circle in 
providing an efficient incremental method for plotting a circle. In this algorithm, eight 
points are plotted for each parameter calculation. Although multiplications are 
required in parameter calculations, the multiplier is a power of 2, so all multiplications 
Game be reduced to a less costly shift operation. Figure 2.4 is a flow chart 
representation of the implemented version of Bresenham’s algorithm. 

7. Color Testing 

Wie color of an mudividual pixel may be deternuned by passing an (N.Y) 
Seerdinate to procedure INQLIRE COLOR. This procedure will determine the pixel 
color and return an integer value defining the color code. Color codes are listed in 
Hiaple 2. 

Miiescoletetesmie aleoritiim uses thet ..1) coordinate to calculate a relative 
Piesaddress, It then uSes the KN coordinate to generate a bit mask to identif¥Y the 
Peeciic bit location within a byte. The relative byte address and bit mask are then 
Meed tO test the corresponding address in each of the three color planes. This test 
identifies the color components contained in that pixel and a color code is returned to 


the calling program. 


ty 
Gs 


START 


INIT. VARIABLES 
X= 0 


Y:=RADIUS 
P:=3-22RADIUS 
















PLOT CIRCLE PGENts 


SET_PIXEL(X_CENTER+X, Y CENTER+Y/2) 
SET PIXEL(X_CENTER-X, Y CENTER+Y/2) 
SET PIXEL(X_CENTER+X, Y CENTER-Y/2) 
SET PIXEL(X_CENTER-X, Y CENTER-Y/2) 
SET _PIXEL(X_CENTER+Y, Y CENTER+X/2) 
SET PIXEL(X_CENTER-Y , Y_CENTER+X/2) 
SET PIXEL(X_CENTER+Y, Y CENTER-X/2) 
SET PIXEL (X_CENTER-Y , Y CENTER-X/2) 





Figure 2.40 Bresenham’s Circle Algorithm. 
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S. Area/Polygon Filling 

Filling may be accomplished bv calling either the procedure 
Pele OAR Y rill or procedure AREA FILL. Both of these procedures use 
algorithins based on a 4-connected boundarv-fill algorithm described by Hearn and 
Baker [Ref. 8: pp. 92-93]. The 4-connected boundarvy-fill algorithm accepts as inputs 
the (X.Y) coordinate of an interior point of an area bounded by the specified boundary 
color and a fill color. Starting at the initial (X.Y) coordinate, each of the four 
Meiom@eorne pots (t+ 1.¥). (X-1.Y), (X.Y +1). (X,Y-1)] are tested. If the point is of 
a different color than the boundary, then it is set to the fill color and neighbors of the 
new point are tested. This procedure continues until all points within the bounded 
area have been tested. Figure 2.5 is a recursive Pascal 4-connected boundary-fill 
procedure fron: Hearn and Baker [Ref 8: p. 93], which forms the basis for the 


following procedures. 


psoceaure boundary _ fill( x, y, f£illcolor, 
QuUnearyTGolor: iIneeger ) ; 
aes Some lOor.) LLECGeT; 
pe gay) 
mmescmenmcOlorm@s— inquire_color( x, y)-; 
Poem@emescictaeecelor <> bolindary color) and 
@egecemt color <> fillzeolor) then 
Bec n. 
set_pixel(x al PSOne On). 
boundary_ sania ee OlLOor, Doundary Color 
Poumoas vata lit xX~1, y. icc he weeecumncan Y CO LOL 
memmcarvyati tiie yrl, piablscolor, boundary_color 
a ae Ky eee olor, beundary color 





Figure 2.5 Pascal Boundary-Fill Procedure. 


Procedure BOUNDARY _FILL 1s a recursive routine whose input parameters 
wiclude a beginning (X.Y) coordinate, a fill color, and a boundary color. This routine 
uses the 4-connected fill algorithm to fill an area bounded by the specified boundary 
color. 

Procedure AREA_FILL is a recursive routine whose input parameters include 
only a beginning (X.Y) coordinate and a fill color. This routine uses the 4-connected 
fill algorithm to fill a contiguous area of the same color as that at the beginning (A.°1) 


coordinate. 


to 
Ca 


The actual implementation of each of the two fill procedures is subdivided into 
two procedures. The first procedure initializes constant variables and then calls the 
second procedure. The second procedure is used for successive recursive) Calica 
technique muininuzes the number of parameters which must be passed on each 
SUCCESSIVE TeCUTsive call 

An individual call to either of the fill procedures can fill an area of at most a 
few square inches. Attempting to fill a larger area may result in a stack overflow error. 
This 1s an implementation linutation which can be circumvented by subdividing a large 
area into smaller areas, each of which may be filled separately. An exact upper linut 
on the size of an area which may be filled by a single call to a fill procedure is difficult 
to predict since it depends on the starting point within a specified area. Additionally. 
area filling is an inherently slow process due to the large number of calculations 
involved. 

9. Cursor Control 

The “+” symbol is used to represent a graphics cursor. Cursor positioning 1s 
controlled by procedures SET CURS and RESET CURS.. Procedtire SS isis 
accepts an (X.Y) coordinate and displavs a cursor centered at that coordinate. 
Procedure RESET CURS accepts an (X.Y) coordinate as input and erasesvasblocsaem 
addresses surrounding that coordinate. Both procedures affect only the color planes 
that are enabled Ow Urercunrelit s.stemmcalon, 

Management of the cursor display and positioning is a responsibility of the 
user program. A cursor is not automatically displaved nor is there a lint on the 
number of cursor svmbols which may be displayed concurrently. 

The cursor symbol is composed of nine pixels with the center of the cursor 
being the reference point for positioning. In order to be able to position the cursor at 
any (X.Y) screen coordinate, it is necessary to consider individual components of the 
cursor. The vertical dimension (5 pixels) of the cursor spans five dilferemt relaticaeuas 
addresses in video RAM. Additionally. the horizontal dimension (5 pixels) of the 
cursor may require an additional byte of memory. Whether an additional byte 1s 
required depends on the relative position within a byte of the cursor center gligene 
cursor center is near either end of a byte. then either the next lower Or next items 
from cursor center will also be required to display the cursor. 

The set cursor algorithm uses the (X,_Y) coordinate to calculate iiveurelitie 


byte addresses. These addresses represent a block on the screen which will contain the 
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cursor. The algorithm then uses the X coordinate to determine which of the eight bit 
positions within a byte represents cursor center. Then one of eight possible bit 
patterns is generated to represent the cursor. Resetting a cursor requires less program 
steps since a block of seven relative byte addresses are erased without regards to the 


exact position of the cursor within the block. 


iY. PERFORMANCE AND EVALUATION 


A. DENIONSTRATION PROGRAMS 
Four demonstration programs are provided in Appendices B-E. Those programs 
along with the user’s guide in Appendix A. will aid the user in writing graphics 
programs using the Ada language. 
1. Program AGTEST1 
Program AGTEST1 draws a test pattern demonstrating the use of color 
selection, line drawing. circle drawing. and filing. This test uses ADAGRIaiag 
procedures COLOR. SET _CURS. CIRCLE, DRAW LINE, BOU NDA eee 
AREA _FILL. 
2. Program AGTEST2 
Program AGTEST2 draws a pattern consisting of two sets of curves and a 
color wheel illustrating the eight available colors. AGTEST2 uses ADAGHege 
procedures COLOR, DRAW_LINE, DRAW_MLINE, CIRCLE, and SE ieee 
3. Program AGTEST3 
Program AGTEST3 demonstrates interactive control of the graphics cursor. 
The user is asked repetitively to enter an (X.Y) coordinate. The provram) then dispiag. 
a cursor centered at that coordinate and erases the previous Cursor. 
4. Program AGTEST4 
Program AGTEST4 begins by drawing a circle of the approximate maximum 
area (approximately seven square inches) that can be filled by a single call to oliesem 
the fill procedures. It then fills the circle and goes on to demonstrate how polygons 
mav be drawn by setting resetting individual pixels. It also demonstrates filling an area 
containing an object. AGTEST4I uses ADAGRAPH procedures CORGIRS 
SET_PIXNEL, RESET PINEL, CIRCLE, BOLNDARY Plena eee 


B. ADA GRAPHICS LIBRARY LIMITATIONS 

The Ada graphics library presented in this thesis was developed as a prototype. 
Limitations of the library procedures should not cause significant problems to the user 
as long as the guidelines presented in the user's guide (Appendix A) are followed. The 
only known procedures which can cause a catastrophic failure if limits are exceedeamame 


the fill procedures. The fill procedures can fill at most a contiguous area of 


approximately seven square inches. Even filling a seven square inch area may cause an 
error if the Starting point 1s not near the center of the area. However. if the user will 
linut the size of contiguous areas to be filled to approximately 3-4 square inches, then 
the probability of failures is very low. The reason for this limitation ts that the fill 
routines are implemented as recursive procedures. As a recursive procedure, each level 
of recursion requires that three more parameters be pushed onto the svstem stack. 
Attempting to fill too large an area simplv results in a stack overflow. 

Another area of inconvenience for the user mav occur in attempting to use the 
graphics librarv along with other libraries, e.g., the standard I.O librarv. The standard 
1,O library procedure GET automatically causes scrolling of the display screen by one 
M@imacter row edch time it is executed. This is an obvious problem when used in 


concurrence with a fixed position graphics display. 


C. H/Z-100 HARDWARE LIMITATIONS 

A potential problem area for the user is due to the lirmted number of colors (8) 
available for display. This may be particularly inconvenient when writing interactive 
programs using the graphics cursor or anv other symbols which are to be moved within 
the display. Mlanagement of movable objects can become very costlv in terms of both 
processing time and amount of program code. The H’Z-100. while comparable to 
many other nucrocomputers, ts still quite slow in displaying a complex graphics picture. 
One method of optinuzing the management of moving objects in the display is to 
restrict those objects to a dedicated color plane. If this is done, then updating the 
position of a moved object can be done without disturbing the graphics objects defined 
in the other color planes. A disadvantage of this approach is that there are onlv three 
color planes available to begin with and by dedicating one color plane to something 


like a cursor reduces the colors available for other objects from eight to four. 


D. TIMING MEASUREMENTS 

Table 4 provides a summary of timing measurements performed to determine 
average graphics processing times for the most critical operations. Times represented 
in the table are average times that one would expect to encounter in a call to Ada 
graphics library procedures when drawing a graphics picture. 

eye wiimeroceuures are quite slow duc to tile large number of steps involved in 
testing and setting each pixel and the additional overhead related to a recursive 


procedure. The timing differences between drawing horizontal vertical lines and 






TABLE 4 
PERFORMANCE RESUS 











Oneratven Lime ber Pi xe lee 
Zale IL a 


Dray lesae 
DOr Zee7 Vere. . 54 
Diagonal . 64 


Set/Reset Pixel 












diagonal lines 1s due to the two additional cases which were implemented in the line 
drawing algorithm. Those cases Were added to handle the special cases where a line 1s 
either vertical or horizontal. In those cases. since the slope of the tine is mot Wisaqmam 
plotting the line, less calculations are required than when plotting a diagonal line. 

Setting resetting of individual pixels bv all of the graphics procedures is slowed 
by the overhead in address calculation of the bit mapped display. This is primarily a 
weakness in the design of the video processor of the H’Z-100. However, it would be 
interesting to see if a significant speedup could be realized if a lookup table was used to 


aid in pixel addressing instead of a pure mathematical addressing algorithm. 


Loe) 
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ee OiviiviliNDATIONS FOR FUTURE DEVELOPIIENT 


Any future additions, modifications to the Ada graphics library should consider 


the following: 


(1) 
(2) 


The feasibilitv of implementing a nonrecursive fill routine. 


De clopmenteina implementation o: dillerenc | © procedures that are more 
compatible with a graphics display to. replace those in the standard 
library. In particular, these procedures should allow placement, of 
alolwanwmernc swmbols at anv screen coordinate, not nse ple ehoactinicd 
character positions. Any scrolling of the screen should also be strictly under 
the control of the user program. 


~ 


Ue sees oilio! Optimizing some Of the existing procedures. For example. 
perhaps the napping from @ Y coordinate to a displayable scan line could be 
performed more elliciently by a lookup table. But, Would the tume savings 
justufv the additional memory required? 


The feasibility of developing and implementing a subset of the GKS standard 
as a level of abstraction above the primitives provided in the Ada graphics 
ibrarv. 


The feasibility of networking two or more H Z-100. computers to provide 
Interactive Operator communication on one system While providing a graphics 
display on another. 


The feasibility of modifving the structure of the Ada graphics library so that it 
is compatible with the MS-DOS operating system hosted on the H/Z-100. 


V. CONCEDRSTIGr 


The implementation of the Ada graphics library on the H,Z-100 computer has 
proven the feasibility of developing Ada graphics programs on a microcomputer. The 
H, Z-100 is certainly suitable for educational purposes but its ability to meet real time 
tactical requirements 1s limited. This limitation ts not unique to the H Z-100. but is a 
general limitation of most microcomputers available today. We can expect this 
limitation to ease significantly over the next several vears as low cost multiprocessor 
systems are developed. 

The Ada graphics library was implemented as low level primitives mecessaieames 
interface with and control the H/Z-100 hardware. The library functions were not 
designed in accordance with anv recognized standards. However. the functions were 
designed with graphics standards in mind. The implementation of a higher level GKS 
standard graphics library would be able to use most of the present Ada graphics library 
primitives to interface with the H,Z-100 hardware. The implementation of a GKS 
standard as a level above the machine dependent Ada graphics library would assist in 
making any developed Ada language graphics programs transportable to other 
computers. The benefits which mav be realized from a standard interface to a language 
are obvious with the high costs of developing software. Although the architectural 
limitations of the H’Z-100 are not compatible with a full implementation of the GKS 
standard, the educational benefits that could be realized from even an implementation 
of a subset of the GKS standard warrants futrther investigation. 

The limited capabilities of the H,Z-100 may limit its suitability for many 
Operational tactical applications, however, it can be a useful svstem for program 
development. With the support of the Ada graphics library, the H Z-100 can assist in 
performing further research into such tactical programming applications as the Navy 
Tactical Data Svstem (NTDS). The ability to perform research in this areaycouiaies 
further enhanced by the development of a GKS standard graphics hibrar oreie 


HZ 00 Computcr. 
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Pate be EN Le 
USERS GUIDE 


2 INTRODUCTION 

vce scripaiccmprecedures are availible towthe user. These procedures are 
included in ADAGRAPH.LIB which 1s callable from the Ada programming language. 
Appendices B-E provide four example programs demonstrating the linkage and calling 
procedures necessary to use the Ada graphics library. Procedures available to the user 
ane: 

Ginn Cus | 

OZmerCOLOR( color code: in INTEGER) 

mel OUlLReECOLOR( x coord = y_coord: in INIECER; 

GO "Orscede- oUt aINTRCER) 

Jeo ler heb xmcoord, yvecoord: in INTEGER) 

ee orl Ar x COOL, Yeeceoord: in INIECER) 

(6) DRAW_LINE(x_start, y_start, x_end, y_end: 

in INTEGER) | 
ie ee DRAW MLINE( xX Start, yestart, x_end, y_end: 
in INTEGER) 
oye Cc PRCEE( xX Cencer, y center, radius: in INTEGER) 
See coOUNDARyY OPI EMG@wsecoord, y coord, fill_color, 
Pouncdanvecolor:) in INTEGER) 
epee noe lb Meeoord, y coord, £1ill_ocolor: in INTEGER) 
meme ot lt CURS( xX Coord, y coord: in INTEGER) 
wee ees! CURS( x Coord, “y coord: in INTEGER) 

Following the description of each function 1s an example of the Ada language 
ealeto the described procedures. It should be noted that for all procedures that require 
an (X.Y) coordinate that the allowable range of X 1s 0-639 and the allowable range of 
pets 0-216. 


Eee CLEARING THE SCREEN 
Most graphics programs will require clearing the display screen before displaving 


empmics data. Ilhis is best performed by calling procedure CLS. This procedure takes 


Gs 
Gs 


advantage of a built-in hardware feature which allows resetting all of video RAM in 
one frame period (approximately 16.7 ms). 

-- Clear the screen 

Clest 


ey COLOR SELECTION 

The H Z-100 has the capabilitv of displaving up to eight different colors. Color 
selection is performed by calling procedure COLOR and passing a color code 
parameter identifving the desired color. Table 5 lists the colors available and their 
respective color codes. Black is not listed as a color option since it is the only color 
which 1s displaved by resetting a pixel, 1e., Writing a “0” to that pixels corresponding 
addresses in video RAM. All other colors are displaved by writing a 1° in the 
appropriate relative address of the color planes required to produce the desired color. 
If a pixel is to be reset to black then the RESET PINE procedure shemiassenmaan 

--Set svstem color to green 

COLOR o, 


TABIBES 
COLOR CODES 


CObBORaCODE: 





4. COLOR TESTING 

To determine the color to which any particular pixel has been set. use procedure 
INQUIRE COLOR. Input parameters to this procedure are the (X\. 1) cognate 
the selected pixel. The procedure returns the color code (Table 5) of the pixellocanes 
at that coordinate. 


--Get color of pixel at (N.Y) coordinate (30,60) 
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POM COBOR( 59, 60. color); 


Seer til SET PING/RESETTING 

meee SelarbixeEl and RESE) PIXEL are provided for controlling 
Meiiadual pivels. Procedure SET PINEL accepts an (X.Y) coordinate as input 
parameters and sets the corresponding pixel to the current system color. Procedure 
Peer ierineEL accepts an {X.\1) coordinate as input parameters and resets the 
corresponding pixel to black. 

--Set pixel at location (70,50) to current system color 

Seer EEL (70; 50): 

--Reset pixel at location (50.50) to black 

heer i te 1 (50.50): 


6. LINE DRAWING 

Procedures DRAW_LINE and DRAW _MLIWNE are provided for drawing lines. 
Both procedures accept as input parameters the (X,Y) coordinates of the end points of 
a line. A line of the current system color is then drawn connecting those end points. 
if procedure DRAW LINE is used, then intersecting lines will be displayed with the 
last line drawn on top. If procedure DRAW_MLINE is used for drawing lines then 
the color at the point of intersection of intersecting lines is the combined color of the 
individual lines. 

--Draw a line from coordinate (100,50) to 

--coordinate (200,75). This line will be 

--drawn on top of anv line it intersects. 

DRAW LINE(100, 50, 200, 73): 

--Draw a line from coordinate (100,25) to 

--coordinate (10.15). This line will mix 

--colors at the point of intersection with 

--anvy lines that it intersects. 

ive WeNMLINE(100, 25. 10. 15): 


ie CIRCLE DRAWING 
Peecedtire circle will draw a circle of the present system color. Input parameters 
femeiis procedure include an (X.Y) coordinate wentilying the circles center position 


and a radius length measured in units based on the number of pixels (640) in the X axis 


Loe) 
Lor 


of the video displav. The circle drawing algorithm draws a circle with automatic 
corrections made based on the x:y linear pixel ratio (2:1) of the color monitor. 1.e., the 
circle radius 1s twice as many pixels in the \ axis ass een eee 

--Draw a circle of radius 50 units and 

--celitered at coordinate (300, 100). 

CIRCLEGO0) 100-30): 


8. AREA/POLYGON FiEEING 

Procedures BOUNDARY _ FILL and AREA FILL are available io pen aaa 
filling operations. The user is cautioned that the filling algorithm has an upper limit on 
the size of an area (approximately seven square inches) which mav be filled by a single 
call to either of the fill procedures. Larger areas may be filled by partitioning the 
larger area and filling the individual partitions. The user can generally avoid problems 
bv limiting all fills to a contiguous area of not more than 3-4 square inches. 

Procedure BOLNDARY_FILL accepts as input parameters an (XN v1) coorama 
identifving the starting point, a fill color code. and a boundary color code (Table 35). 
The procedure begins filling from the starting (X\,¥) coordinate and sets all pings 
Within the defined boundarv to the designated fill color. The boundary must be a 
single color defined by the boundary color code. | 

Procedure AREA FILL accepts as input parameters an (X,\1) coordiiame 
identifying the starting pomt and a fill color code {Table 3). {he procedure starioa 
the input (X.Y) coordinate and sets all pixels in a contiguous area which are the same 
color as the pixel at the (X.Y) starting coordinate to the specified fill color ae 
procedure can fill an area which is bounded by different colors since filling 1s based on 
the color of the area to be filled. 

--Beginning at coordinate (50,75), fill an area 

--wWith blue that has a red boundary. 

BOE N DAR Y Fibs) so. 

--Fill a contiguous area with green. An internal 

--point in that area 1s coordinate (100,100). 

AREA Ee i) St 0Cman: 

LAC ROR EO NT RGE 
Procedures SET _CURS and RESET _CURS are provided for cursor contioies 


graphics cursor controlled by these procedures is a +. The center of Tiesemiecmar 


es 
a 


used as a reference point for cursor placement. Al! management of cursor display 1s 
the responsibility of the user. The cursor is simply a special graphics symbol! which the 
user miav display and erase. The number of cursor svmbols which mav be displayed at 
any point in time is deternuned solely by the users program. 

Rucccemoemoel OL RS accepts as input an (X,Y) coordinate and displays a 
Samsor Symbol Of the present color at that coordinate. Procedure RESET CURS 
accepts as input an (X._Y) coordinate and resets a block of relative memory addresses 
Semiered at the corresponding (X.Y) coordinate. The color planes affected are 
Setermined by the present svsten: color. I[t ts suggested that if the user desires to use 
the cursor as a background symbol! then the cursor color should be restricted to a 
single color plane (red, green. or blue) that is dedicated to cursor display. If this is not 
done then a management scheme must be implemented in the user program to 
maintain the integrity of non-cursor graphics data when setting resetting the cursor. 

--Displav a green cursor at coordinate (150,100). 

COLOR(S): 

ee OUR S(150; 100): 

--Erase a green cursor at coordinate (50,75). 

BOLOR(5); 

Meese!) “CURS(S50, 75); 
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APPENDIX B 
GRAPHICS Tis! 


WITH IO, UTIL,ADAGRAPH:; 
PACKAGE BODY SAGTAol erS 
USE “10;- UTIL Apache: 


--THIS PROGRAM DRAWS A TEST PATTERN TO TEST GOnbOGR Sse Eee ueeue 


--CURSOR SETTING, CIRCLE DRAWING, EINE Daa iee 


--AND BOUNDARY FILLING 


MUDOS, Yaepos © integer, 
Guat: Ghanaccer: 


begin 
Gisy 
x 00S := ae 
y_pos := 
color(5); -~-GREEN 
set _curs (300, 135); 
corer 3): --BLUE 


--DRAW A CIRCLE 
eirele (300, 102 5142))- 
Color(s). --RED 

-- DRAW A RECTANGLE 
Graw line(l5e5. oi, 442 sie 
draw line (442, 31, 442, 1735; 
draw_line(442, 173, 158, 173); 
draw _line(158, 173, 158, 31); 

--DRAW A CIRCLE AND FILL TT 
Circle 300) 102 7.40 
area _£111(300, Oe 

--DRAW AN IRREGULAR POLYGON ‘AND Ibe,» eae 
GGaws line (20.2070 : 
Grav iine( e022, 84. S101) 
draw_line(84,50,17,43); 
draw line(17,43,20,20) ; 
boundary_ i11(50, 35,6,6); 

--DRAW A TRIANGLE AND Poon 1a 
draw_line(50,100,80,130) ; 
draw _line(80,130,20 coe 
draw ~tine( 89° 180"30" 13 : 
areactill(s0 120 5). 
color(2); --MAGENTA 

--DRAW A RECTANGLE 
draw line lO, 107 (Sse. Go). 
draw _line(590, 10, 590, Bee 
Grace Hinet 590, (205. 10m 205 
dravmline( 10 205. 20s POs 
color(5); 

-~-DRAW A RECTANGLE WITH DIAGONAL LINES 
draw_line(200, 52, 400, 
ie MCs Ba. ee. ise. 
draw line(400, 152, 200, 152); 
Granalane( 200m 152 e700 moa 
draw _line( 200, 52, 400, 152 - 
drawlline( 200,152, 4005 5255 

get(quit); 
end AGTESTI | 


AREA FPIELENG, 


AEPPENDIECE 
GRAPHICS Tisie2 


WITH IO, UTIL,ADAGRAPH; 

PeecaGh BODY AGTESTZ IS 

Wee 10, UTIL, ADAGRAPH; 

et oerROGRAl] EXERCISES THE LINE DRAWING, CIRCLE, 
eee BREA FILLING PROCEDURES TO PRODUCE A PICTURE 
~oWITH CQEOCRED CURVES AND A COLOR WHEEL 


i, heey; Vl, y2, pcol : integer; 
Guat : character; 


begin 
ELS: 
—_ oe 
pollen (6); 


aaeo0r TO DRAW CURVE 1 
“3a Teen 0. vle.s) Ibeyeye: 
:= 1 10 

72 := 139 Nae 
aie Sie ad Vom Oeuey2) s 


e 
i 


Ze 
oe : vi sae ole 
end isso 


an := ve 
Peon |: 
megoor TO DRAW CURVE Z 


2 2 1897 3 y, 630, y2); 
fee + 2: 
ee vl + 3; 


end loop; 

--DRAW A COLOR WHEEL 
genor(0); ~--WHITE 
circle(320, oOo. 00!) 
draw_line B20) LOO 520. 200 
draw_line(220, 


p-— 
oa) 
= 

Jp 
No 
© 
-— 
cn 
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emaveline(249, 115, 391, 185 
Say line(391, 115, 249, 185); 
mecaetill(355, 115, 0); --COLOR O = WHITE 
eri i( sol, 140, 1); --COLOR 1 = CYAN 
eect fii] Soe i700, 2)- -=COLOR 2 = MAGENTA 
aoameriigs30, 185, 3); --COLOR 3 = BLUE 
Peacoat i sto, 165, 4); -=-COLOR 4 = YELLOW 
area_fill(249, 160, 5); --COLOR 5 = GREEN 
erea £ill%249, 130, 6): --COLOR 6 = RED 
Pest)? 

Smee AGlESTZ; 


APPENDS 
GRAPHICS fests 


WITH LO, UTIE, ADAGRAPE: 
PACKAGE BODY AGTEST3 IS 
USEe 10, ULTILy PAbseracr 


--THIS PROGRAM IS USED TO TEST SEITING abby Res mies 
--OF A GRAPHICS CURSOR. THE PROGRAM REQUESTS eG se] 
--POSITION INPUTS, ERASES (HE PREV 1OUS (eUnSC cree. 
--DRAWS A CURSOR AT THE INPUT (X,Y) COORDINATE 


ieee mecets, | 
HeOOS,) 700s, sold) yJoldy-sancecer. 
begin 

Chsy 

x_old — oF ==INITIRET Ze 


Pewo0e Lop 
put Rees A FOSTRION  ")- 
Gee UALS 
put 'ENTER. am POS ETION<*").- 

Srey, 

ea sy BSS) «GREEN 
reset “curs (x_ Gildis sy eold)); 
set_curs(x_pos, V_pos); 
x_Old := x_pos; 
y_old := y_pos - 18; 


end AGTEST3; 
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AL EIN Eee 
GRAPHICS TEST 4 


fed £O, UTIL,ADAGRAPH: 
MmeeKeGE BODY AGIEST4 IS 
Wee fO, ULIL, ADAGRAPH: 
memo FROGRAM IS USED TO DISPLAY A CIRCLE OF THE APPROAIMATE 
See tiUil AREA THAT CAN BE FILLED BY A SINGLE CALL TO ONE OF 
meee, Pill ROUTINES. Tt THENSPEMONSTRATES FILLING AND 
Speen tNG OF POLYGONS USING ONLY THE SET_PIXEL AND RESET_PIAEL 
meh OCEDURES. 
meeey  : LNTEGER; 
eee: Character; 
begin 
eco: 
--SELECT COLOR 
So Ler (Ope: --WHITE 
SePRAWN A CIRCLE 
errcleso0,. 102, 115). 
meeeeeLi THE CERCLE WITH RED 
beundcin mr ll(SO0Gme102, 6, 0); 
color(1); --CYAN 
meee A RECTANGLE USING SET PIAEL 
Bote x in 250..350 loop 


set pixel (x, Tae 
Becrpixel(x, La 
acd Loop; 


mem y in 77..127 ay 

set _pixel (250, y 

Set_pixel S50. -y ;, 
end loo 
--FILL THE RECTANGLE 
area_fill(300, 102, 5); --COLOR 5 = GREEN 
gma eos & RECTANGLE USING RESET PIXEL 
Pewes 11) 280..320 loop 

eer y in 21) aiallal eee 

reset_pixel(x, Vou 

a. sep: 
end l Bae 
emea, f111(375, , 2)3 
color(é); 

et (quit); 

end AGTEST4; 
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APPENDAGE 
SPECIFICATION PACKAGE 


PACKAGE ADAGRAPH IS 
~-RETURN ADDRESS VARIABLES 
RET ADJ SL,RET_RVA,RET_LS,RET_IC,RET_XM: INTEGER; 
RET FILL,RET AFILL RET =O, RET _SPE,RET_CPE:INtaGeaR: 
RET_DML,RET_ RPE: INTEGER 
~-CURSOR ADDRESS VARIABLES 
CURS_0,CURS_1,CURS 2,CURS_3,CURS_4: INTEGER; 
KX LOC: INTEGER: 
--X7¥ POSITION AND GENERAL PURPOSE VARIABLES 
X START, Y_START,X END,Y_END: INTEGER; 
XPOS , ¥_POS , DELTA_X, DELTA_Y,INC_CTR: INTEGER; 
L ERROR, END CNT: INTEGER; 
NOCTR, ¥Y_CTR RADIUS, KX REL, YOREL, © Val omuses.. 
~-COLOR VARIABLES 
P COLOR, F COLOR,B_COLOR: INTEGER; 
--SYSTEM STATUS 
SYS STAT: INTEGER; 
~-SEGMENT E STATUS 
SEGMENT _E,SEGMENT_FE,SEGMENT_IE: INTEGER; 
--COLOR PLANE BASE ADDRESS 
COL_PL_ADDR: INTEGER; 
SAV_COL1 STAT,SAV_COL2_STAT,SAV_COL3_STAT: INTEGER; 
COL_PL1,COL_PL2,COL_PL3: INTEGER; 
~-FILED ROUTINE CONTOL VARIABLE 
COL_MIX: INTEGER; 
~-GRAPHICS LIBRARY PROCEDURES 


PROCEDURE CLS; | 
PROCEDURE COLOR(ceclor_code : in INTEGER); 
PROCEDURE SET_CURS(x_s0s, y_pOs : in DNUBGEROT 
PROCEDURE RESET_CURS(x_pos, y_pos : in INTEGER); 
PROCEDURE DRAW_LINE(x_ aye V_ stare, secme yo end : in INTEGERS: 
PROCEDURE DRAW_MLINE(x_ start, Y_ start, <= end, Ya end : in INTEGER); 
PROCEDURE CIRCLE(x_etr, y_ ctr, radius : in INTEGER); 
PROGEDURE INQUIRES COLOR(x_pos, y_pos : in INTEGER; 
colér : out INIEGER); 
PROCEDURE BOUNDARY _FILL(x pos, yi p05) 95 ecto R om color 
in INTEGER); 
PROCEDURE ee re oe Vics oe _color : in INTEGER); 
PROCEDURE SET_PIXEL(x_pos, y_pos : in INTEGER); 
PROCEDURE RESET _PIXEL(x_pos, y_pos : in INTEGER); 
END ADAGRAPH; 


APPENDIX G 
ASSENIBLY CODE LISTING 


PACKAGE ae ia ADAGRAPH 
{ 


MAIN 


(Os ies ee ee Eee nee ee 6. ee 6 ie le a en Oe 


> © © ee «© @ 


Ol th Len Usb omen ennn ee elmer tria enemas alee fe Ne cet ne Oe cle ew ee. cel lelemee 


; PROCEDURE Gio l> USERRTO PERFORM & CLEAR SCREEN OPERATION 


ERee CLS 


DELAY : 


FSH 
IN 
PUSH 
MOV 
QUT 
IN 
AND 
OUT 
IN 
AND 
out 
MOV 
Or 
LOOP 
IN 
OR 
OUT 
POE 
OUT 
EOE 
RET 


END PROC CLS: 
RRA RAK ARAN AKRKKKRAKARRKRAERRKKEKRRERRERRRARRKRKRRARKKRERARKKEKRRAKKRERKRKRERERX 


‘ 
® 


OL fi Ce ee, ee ee 


ees he ee ie. 


AX 
AL, ODSH 
a 

AL ,OFH 
OD8H, AL 
Abe ODBH 
AL, OF7H 
ODBi AL 
AL, OD9H 
fly OF Tn 
OD9H, AL 
ea meherel® 


DELAY 


Ce) eet Wo eee Meee 


;9AVE VIDEO STATUS 


;BLANK THE SCREEN 


foo hee == © 


;ENABLE CLRSCRN SIGNAL 

Pete cOUNTER FOR TIME DELAY 

milie DELAY HOeALLOW VIDEO PROCESSOR 
ploihe DTO CLEAR VIDEO MEMORY 


;DISABLE CLRSCRN SIGNAL 
SRESo LORE sor omeM oLATUS 


a le 0, Ole ie. ie ee 


Cee Oe Le ot Ee Oe ee 


: PROCEDURE CerOn IS USEDPTO ENABLE COLOR EEAIIES TO PROVIDE THE SELECTED 
meelOn AND THE E SEGMENT REGISTER IS INITIALIZED TO ALLOW WRITING TO 
yink ENABLED COLOR PLANES. 


Eeoc COLOR; 


@eLOR1: 


SOLOR2 : 


COLORS : 


EOP 
EOF 
PUSn 
AND 
JNZ 
MOV 
MOV 
HOV 
JMP 
SUB 
JNZ 
MOV 
MOV 
MOV 
ie 
SUB 
JNZ 
MOV 
MOV 
MOV 
JMP 
SUB 
JNZ 
MOV 
MOV 
MOV 
Je 


DA 
AX 
DA 
Poa 
COLORI 
Colo PEL 
COLL FEZ 
COLA LS 
Be Peco 
7 Spae 
COLORZ 
COLaPrl 
GOEL PEZ 
Colmer Ls 
Ee be COL 
ALY 
COLOR3 
SObsP LI 
SOE Bi 
COL SFL3 
Bet ecol 
AL, 1 
COLOR4 
Gorsrli 
Soler lZ 
SOLTZELS 
EXTE_COL 


=a 

















Poo ve eRe we URi oe URE SS 

}GETBCOLOR CODE 

jReotOneenwa URN ADDRESS 

ho WmeOlOnR CODE TO SET STATUS FLAGS 


OCOQOOH 
QODOOOH 
OEQOQOH 


OCOOQOH 
QEQOOH 


, CE0COR 


OCOQOH 
ODOOOH 
ODOOOH 


Jeoo00n 
OCOQO0H 
OCQOOH 


,COLCR lS WHITE 


COLOR ts CYAN 


;COLOR IS MAGENTA 


PEOUOR to) SLUE 


COLOR4: SUB 
INZ 
MOV 
MOV 
MOV 
IMP 
COLORS: SUB 
INZ 
MOV 
MOV 
MOV 
INP 
COLOR6: SUB 
INZ 
MOV 
MOV 
MOV 
IMP 
EXIT_COL: MOV 
OUT 
RET 


eC cee Leer, ea 


é/ 
a 


0 Le yee ige e eee WO eels Se 


ee a 
COLORS 
Gon PL 
ko) I =3 Oy 
COL_PL3 
EXT PEcoL 
Ri 
COLOR6 








, QODOOOR -[CORGReEse 4akike7 
OEQQOH 
QEQQOH 


COL_PL1!, QEQQQH -;COLOR@is 36.2)! 
COESPEZ |, OBCOOn 
GOL LPL), GCbooCn 


Px cob 
AL, 
ExT Teo 
COME ET 
COje LZ 
CObSPES 
Balt 2eOL 
AL, 78H 
OD8H, AL 


| 








, QODQOQCK | Coren is sce 
, ODOQOH 
, ODOOQOH 


;DISABLE SIMULTANEOUS WREve 


6 *@ © 6 oe Oe oe ee i 8 a ee 


Ce ee ee eee Se Se eee ee ee SO On es I ee ee ee, Oe Ce ON ee ce SO On ee On Tp OO Oe Oe 


: PROCEDURE RESET_CURS IS USED TO ERASE THE@Gee eames eUnse. 
;AN (X,Y) POSITION IS INPUT TO THE PROCEDURE AND THE A BLOCK OF 
;ADDRESSES IS CLEARED AT THE CURSOR LOGAT Fe)! 


[SIE G 3 Ss ,SAVE SEG E STATUS 


PROC REESE. 2CURS- 
MOV 
iO} 
POE 
2Or 
Upays | 
PUSH 
PUSH 
CALL 
CALL 
POP 
CALL 
SUB 
CALL 
Sus 
PUSH 
PUSH 
CALL 
CALL 
POP 
CALL 
SUB 
lel Syl 
EUSH 
CALL 
CALL 
EOe 
CALL 
ADD 
Peon 
PUSH 
CALL 
CALL 
Per 
CALL 
ADD 
BUSA 
PUsd 
CALL 
CALL 
POE 
CALL 


AX 
foe) 
X_POS 
AX 
[X_BOS 
Y_POS 


ADJ_SL 
REL_VID_ADDR 


BX 
BLANK_GCURS 
BX, l 

BLANK _GCURS 
vopos. 4 
x_ POS 

Y_POS 
ADJ_SL 

REL _VID_ADDR 
BX 


BLANK_GCURS 
Y Pos], l 
XPOS 
Y_POS 
ADJ_SL 
REL_VID_ADDR 











Bx 
BLANK_GCURS 
VAPOS lie.es 
X_POS 
pee oS 
ADJ_SL 
Rie | Dare 
DA 

BLANK _GCURS 
VeeOsir. 
ASEOS 
Y~POS 
ADJ SL 
REL VID_ADDR 
Bx 


BLANK_GCURS 














as 


;SAVE RETURN SADDRESS 
-GET Y =BOsil ig!) 

;CET AX Pest ie 
;RESTORE RETURID ADERESS 


;ADJUST Y POSITION TO A DISPLAYAGES 
;SCAN LINE & GET VIDEO@EDDEES-: 


tS ae Te ee 


MOV 
gaat 


ee ee et ee ae 


ES, {SEGMENT _E] ;RESTORE SEG E 


(oper De eal Del Wegen leeier ue Comet 


ee ee eet ees) een Dee 


+ PROCEDURE BiewieecCURS 25 USED BY PROCEDURE RESET CURS TO ERASE A CURSOR 


PROC BLANK_GCURS; 


O20 82 202 Ul ee eee) iV ie 


MOV 
MOV 
SIG 
MOV 
MOV 
MOV 
SEC 
MOV 
MOV 
MOV 
SEG 
MOV 
Red 


pee Le Oe at eee a eet ee ee 


AX, [COL_PL1] 


? 


ES 
[BX], 0 

Par GOL UPL2 | 

ES, AX 

ES 

ej) ae 

AX, [COL_PL3] 
S, AX 

ES 

Uecct ale 


eo De th le ei te Ss i Oe. ie a et Poe ae Ae ee ee Se Se ot eal aL ee pe ee ea er eee ST Jeger) Gees Geel ee Qe Seren WR Ieee, ay Dee eae 


Neen Paes e eee ne) ee OTOL G0 UN ORO ese Le) 06) SN NOON Ole es Wp NB ee ee es Oe Ne 


“PROCEDURE SET _CURS IS USED TO DISPLAY A CURSOR AT THE INPUT 
-(X,¥) POSITION. 
PROC SET _CURS; 

/CALCULATE MEMORY ADDRESS OF NEW CURSOR POSITION 


‘THE CURSOR 


CO: 


Gils 


MOV 
Boe 
FOr 
Pele 
PUSH 
MOV 
PUSH 
CALL 
POE 


Titwermenles CURSORS DISHED IS A '+". 


(SEGMENT _E|, ES “SAVE SEG Ee STATUS 
A&A ;SAVE RETURN ADDRESS 


roa ;GET Y POSITION FROM STACK 
X_POS ;GET X POSITION FROM STACK 
AX ;REPLACE RETURN ADDRESS 

oy. (eaves: 

[y_POSs] 

ADJESL 

BX ;GET CORRECTED Y LINE NUMBER 


PSeMADE UP OF SFIVE COMPONENTS: BABELED CURS_O TO CURS_4 


MOV 
MOV 
MOV 
MOV 
MOV 
SUB 
MOV 
JNS 
MOV 
ADD 
PUSH 
CALL 
2Cr 
Sil 
MOV 
JNS 
ADD 
Push 
CALL 
FOr 
ADD 
PUSH 
CALL 
FOr 
ADD 
PUSH 
CALL 
POP 
PuSse 
= OS! 
CALL 


CURS_0], DX ;PUT THE LINE NUMBER INTO 
CURS_1], DX ;EACH OF THE CURSOR ROWS 
CURS_2], 
GURSa5 1), 
CURS_4], 
CURSO]. 
AX, [CURS_0] 
CO 

yes 
foe 


iri 


ae ee Ueno meunoOR ROW aro REFLECT If 
‘Dota Gay pROMMCURSOR “CENTER POSITION 
WiC omeCUR Sac 

lio. ese rROCkDURE ADJasL TO ASSURE 
;THAT EACH CURSOR ROW IS LOCATED ON 


S51] ;A DISPLAYABLE SCAN LINE 








REL_VID_ADDR 
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Or 
PUSH 
PUSH 
CALL 
POP 
PUSH 
PUSH 
CALL 
POE 
PUSH 
PUSH 
CALL 
EOr 
PUSH 
PUSH 
CALL 
ror 
PUSH 
Pun 
ALL 
POP 
MOV 
AND 


-DRAW THE CURSOR 
“THiS .SPEnrs Roe 


BEL. 


BIEZ. 


JINZ 
MOV 
MOV 
SUB 
CaLL 
MOV 
ADD. 
CALL 
MOV 
MOV 
Con 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
Je 
SUB 
JN2 
HOV 
SUB 
MOV 
CALL 
MOV 
ADD 
CALL 
HOV 
LOV 
CALL 
MOV 
CALL 
MOV 
CALL 


JINZ 
MOV 
HOV 
CALL 
MOV 


BX 
bs 
CURS_0] 
REL_VID_ADDR 
CURS_0 
&_POS] 
CURS_1] 
REL_VID_ADDR 
CURS_1] 
X_POS 
CURS_2] 
REL_VID_ADDR 
CURS_2 
X_POS 
CURS_3] 
REL_VID_ADDR 
CURS_3] 
KEECs | 
CURS_4] 
REL_VID_ADDR 
[CURS_47 
ae, oe POS] 
a 7A 


Bina 


a 


Pee 
BX, [CURS_2] 


DISP_GCURS 
AL, OEOH 


Bia 
DISP_GCURS 
AL, 80H 

BX, [CURS_0O] 
DISP_GCURS 
Boe (CURS.L| 
DISP_GCURS 
BX, [CURS_3] 
DISP_GCURS 
BX, |CURS_4] 
DISP_GCURS 
EXia | 
Ans 
BIT2 
BX, 
BX, 


AL, 
DiSeeccuns 
AL, OFQOH 
2 eek 

Dior ecCuURS 
AL, 40H 


BX reuRs 0) 
DISP_GCURS 
BX,  fCURS 1 | 
DISP GCURS 
[TCURS_3] 
] 


CURS_2] 


ee oe t+ 


BTSP GCURS 
Bk leue cea 
DISP_GCURS 
EXT ne 

Nee il 

BIT3 

AL, OF8H 

BX, [CURS_2] 
DISP_GCURS 
AL, 20H 
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;GET A POSDTIONS OR ates 


;CALCULATE CURSOR BIT POSITION [NMA 


BASED ON CURSOR CENTER BIT POSITION WITHIN 4 Byte 
CURSOR ACROSS BYTE BOUNDARIES FOR FULL SCREEN COVEREes 


;TEST FOR CURSOR IN X PExEEPGsaaee 


;DECREMENT BIT COUNT FORBNEXI =i] 
;TEST FOR CURSOR IN 4 bie) [Osea 


;DECREHENT BIT COUNT FOR SNEAT erase 
;TEST FOR CURSOR IN X PU] oor 


Bors: 


BIT4: 


is) gia 


Bir6: 


MOV 
CAEL 
HOV 
CALL 
MOV 
Gan 
MOV 
Cae L 
JMP 
SUB 
SIN 
MOV 
MOV 
GAEL 
Mov 
MOV 
GAEL 
MOV 
GALE 
MOV 


MOV 
CALL 
JMP 
SUB 
JNZ 
MOV 
MOV 
CALL 
MOV 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
JMP 
SUB 
JINZ 
MOV 
MOV 
CALL 
MOV 


Oy: 


CALL 
MOV 
CALL 
MOV 
CALL 
MOV 
CALL 
re 
SUB 
JNZ 
MOV 


CALL 
MOV 
ADD 
CALL 
MOV 
MOV 
CALL 
HOV 
CALL 
MOV 
CALL 


Pee LecURS 0 | 

DISP_GCURS 

BX, [CURS_1] 

DISP_GCURS 

BX, [CURS_3] 

DISP GCURS 

[TCURS_4] 

5 TSP _GCURS 
EXIT 

Al al 

BIT4 

AL, 7CH 

BX, [CURS_2] 
DISP_GCURS 

AL, 10H 

BX, [CURS_0] 
DISP_GCURS 
BX, [CURS_1] 

DISP_GCURS 
BX, [CURS_3] 
DISP_GCURS 
PeGURSe | 

DISP_GCURS 

EXIT 

Aigo | 

BITS 

AL, 3EH 

Brew ECURS=2] 

DISP_GCURS 

AL, 8 

BX, [CURS_0] 

DISP_GCURS 

Eee ours 1 | 

DISP_GCURS 

BX, [CURS_3] 

DISP_GCURS 

BX, [CURS_4] 
DISP_GCURS 

EXIT 

Bul. fil 

BIT6 

AL, 1FH 

BX, [CURS_2] 

DISP_GCURS 

AL, 4 

BX, [CURS_0] 
DISP_GCURS 

BX, [CURS_1] 

DISP_GCURS 

BX, [CURS_3] 

DISP_GCURS 

BX, [CURS_4] 
DISP_GCURS 
EXIT 

Pee. 1 

BIT7 

aL, OFH 

BX, [CURS_2] 
DISP_GCURS 

AL, 80H 

=) eal 
DISP_GCURS 

eiL 

BX, [CURS_0O] 
DISP_GCURS 
BeeURS 1] 
DISP_GCURS 
BX, [CURS_3] 

DISP_GCURS 


~UBeR elie SeeecOUNT FOR NEXT TEST 
pTES Meme CURSOR IN xX PEXEL POS. 3 


Eee lh Slr COUNT POR NEXT LEST 
prbomenOn CURSOR IN A 8PIXEL POS. 4 


Foo eCREN olin SLE COUNT BOR NEAT TEST 
HsotewORNCURSOR IN X PEXEL POS. & 


MUGeR eae kT COUNT FOR VNEAT TEhoT 
iS een cur SORS UN A oPLABL POS. 6 
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MOV Bic | cURSmay 


CALL DISP_GCURS 
JMP EXIT 
BIT7?: MOV Al @ 
MOV BX, [CURS_2] 
aniye DISP_GCURS 
MOV AL, OCOH 
ADD BX, 1 
@yiuit DISP_GCURS 
MOV AL, 1 
MOV Belede sw) 
CALL DISP_GCURS 
MOV BX, [CURS_1] 
CALL DISP_GCURS 
MOV BX, [CURS_3] 
CALL DISP_GCURS 
MOV BX, [CURS_4] 
CALL DISP_GCURS 
EXIT: MOV ES, [SEGMENT_E] ;RESTORE SEG E 
RET 


_ 6 6+ 6 © © © © © © © 2 © © 5» 9 8 © 0. © 0 CR Se te es pee ies ee ee me Om eer ni Ore sere en eS 


| ee, SO TS, SU NT Oe YO SO OT QO Oe ON On, ST ON OR, SONU PU mn Tay SOR OR en a, Pee SO YON, Oe ONT SO See ge ele et Pe eye eee oe oe 


- PROCEDURE DISP_GCURS IS USED BY PROCEDURE SET_CURS TO DISPFEAY A cunees 
PROC DISe_GeuRs: 


/ 
° 


MOV DX, [COL_PL1] 
MOV ES, DX 

SEG ES 

OR [BX], AL 

MOV DX, [COL_PL2] 
MOV ES, DX 

SEG ES 

OR [BX], AL 

MOV Deleon 23] 
MOV ES, DX 

SEG ES 

OR [oral 

RET 


BND PROC Dist eceurs 


:PROCEDURE ADJ_SL IS USED TO CORRECT Y POSITION TO INSURE 
:THAT IT OCCURS ON A DISPLAYABLE SCAN LINE 
PROC ADJ_SL; 

POP [RET_ADJ_SL]  ;SAVE RETURN ADDRESS 


POP 5 -GET Y POSITION 
MOV uC Bar 
MST: SUB AX, 
INS EDoay 
IMP EXIT_SL 
ADI_Y: ADD BK, 7 
IMP Tone. 
EXIT SL: PUSH BX >RETURN CORRECTED Y POSITION 
PUSH [RET_ADJ_SL]  ;RESTORE RETURN ADDRESS 
RET 


* * ° ° . . . . . . [cn col Sl Te, | SO I ST eT) Yo, my ny me Som Ian ey Suey Icey ey Sy ee Gem Se nr [eum ny Do ema ee oT te kt TR Oe IO ee Oe re OD 


. © © + © © © © F © © © & ewe © hl hUmlhlUhlUCUhUUllUl lll Ul OUlUUUlUDhlUUl Ul ee em i RB Re ee Sea ee 


: PROCEDURE REL_VID_ADDR ACCEPTS X AND Y SCREEN COORDINATES AND CONV 
>THEM TO A BYTE ADDRESS IN MEMORY CORRESPONDING SEGs HE 4.57 ehe- one 
PROC REL_VID_ADDR; 


POP [RET_RVA] ;SAVE RETURN ADDRESS 
POP Bx -GET Y POSITION 
TEST BX, 8000H -TEST FOR Y < 0 
INS TST_YUPR 
MOV BX, 0 
TST_YUPR: MOV AX, 376 ;TEST FOR Y > 376 
SUB AX, BX 
INS Y_IN_BND 
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MOV Ce Boe) 


Y_IN_BND: MOV AX, 80H ;PUT SCALE FACTOR IN AX 
MUL BX ‘AND SCALE Y BASED ON LINE NUMBER 
POP BX -GET X POSITION 
TEST BX, 8000H ‘TEST FOR X < 0 
INS TST_XUPR 
MOV BK, 0 
TST_XUPR: MOV DX, 639 -TEST FOR X > 639 
SUB DX, BX 
INS X IN BND 
MOV BX, 639 
X IN BND: MOV Gives :AND DETERMINE BYTE X OFFSET 
SHR Bech -BY DIVIDING X POSITION BY 8 
ADD Bi ax -ADD KX OFFSET TO GET BYTE ADDRESS 
PUSH BX -RETURN RELATIVE BYTE ADDRESS 
PUSH [RET_RVA] -RESTORE RETURN ADDRESS 


3. 0. fl. Of lo os Tet bE i See RE A Bo eG OR A oc i te in rene eer et. Fie oe SO. ORO ets yee te cer CUR In nr Ten Wr Dey rer reer einer eT Mm Se nT To pe SE me 


ns nS lS ee eee ree Oe Oe) ons emp ene er OO 8 el Oe Oa pee pe ee ON es Boome 6s TO 8 ee ee i pe Nek Nec el ie OO Oe ee ee i a ee ie eee ee ee 


LINE Brean UNCae OCEDURE= iit COLOR MIAING FOR CROSSING LINES 
PROC DRAW _MLINE; 


Or ere Don Veer e wun ADDRESS 
MOV COL mua ae a isso ecOLOR MILAING 
CALL DRAWW_LINE ;GO DRAW THE LINE 

an ee Dil] pecker eer eluURM ADDRESS 


Sees (eo ele a) Aver Oke me en nee Seon ion 6. Fe bP ole) Sey ig. Viel eee elem 6) ee ee Ee Oo se NS op eee et 8 Oe 8 er ee el ene le 8) eo ee ee 


[ age De a) oe neat Dnt Ieee, Deay wes teed TC, Ae ees De her ee Seen Deen) IN Fane, mR CON eS ON, oda teal Sol eee! Sem, 


“LINE DRAWING PROCEDURE WITHOUT COLOR MIXING FOR CROSSING LINES 
PROC DRAW LINE; 


POP a noov ogee SURN ADDRESS 
MOV Leo THI vas (Disneue COLOR HMIAING 
CALL DRAWW_LINE ;GQ DRAW THE LINE 

al [RE GepME | PRES TORE RETURN ADDRESS 


END PROC DRAW_LINE: 

a, RRR RK KR RRR RR RRR RRR RR RR RR RK RRA RRR RARER RRR RR ARK KK ARR KARR KAKA KAKA KKARK 
;PROCEDURE DRAWW_LINE PROVIDES PRIMITIVE LINE DRAWING CAPABILITIES 

‘THE SUBROUTINE ACCEPTS AS INPUT A PAIR OF ENDPOINTS IDENTIFIED BY 

-(X, Y) COORDINATES 

PROC DRAWW_LINE; 


MOV BP, SP 

PUSH DS 

MOV BX, [BP+8] :GET X START FROM STACK 
MOV [(X START], BX 

MOV BX, [BPt6] :GET ¥ START FROM STACK 
MOV (Y START], BX 

MOV BX, [BP+4] :GET X END FROM STACK 
MOV (X END], BX 

MOV AX, [BP+2] -GET Y END FROM STACK 
MOV (Y_END], AX 


;TEST ORDERING OF Y COORDINATES. THE ALGORITHM EXPECTS TO FIND THE Y 
sCOORDINATE IN INCREASING ORDER OR Q. 


MOV ne fa} 
SUB AX, [Y_START] 
INS STO_DY ;JUMP IF Y ORDERING OK 
MOV AX, oo -ELSE SWAP START AND END COORD. 
MOV BX, [X_END] -SO Y START VALUE IS LIE Y END 
MOV ter BX -VALUE. THEN CALCULATE DELTA Y. 
MOV X END], AX 
MOV AX, a 
MOV Bx, [Y_END] 
MOV WSTseT|, BE 
MOV Y_END], AX 
SUB Ree Bx 
STO_DY: MOV [DELTA_Y], AX 
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TST_DY: 


CASE: 


Cece ORn 3S 


CASE_ 2: 


C_CASE2: 


Drea. 


Dawe Aee 


CASE 2C: 


GASEeS: 


MOV 
SUB 
MOV 
HOV 
MOV 
HOV 
MOV 
MOV 
MOV 
als) el 
eel Sig 
CALL 
papel 
JNS 
SE 
aH2, 5% 
JNZ 
SUB 
ADD 
PUSH 
PUSH 
CALL 


JNS 
JIE 
MOV 
SUB 
JNS 
Salle 
MOV 
MOV 


MOV 
ADD 
JINZ 
JMP 
MOV 
MOV 
DIV 
SUB 


MOV 
SUB 
JNS 
JtP 
Test 
JNS 


gelSict 
Push 
CALL 
MOV 
ADD 
MOV 
ADD 
JMP 
ADD 
ADD 
Pum 
FUSa 
CALL 
HOV 


SUB 
MOV 
ADD 
JHP 
MOV 
MOV 


AX, [{X_END] 
X_ STA 








LINE SEG 


[DELTA_X], 8000H 


TST_DY 


Y_POS 
LINE_SEG 
[DELTA_X], l 
CASE_2 
Ext eDL 
RO aes 
2s DEA EY 
CASE_2 
CASE_3 
Ex UDELTALS| 
(END_CNT], AX 


BX, [DELTA_Y] 
Bx, 1 


C CASE2 
DR_C2 

AX, [DELTA_X] 
Dey 0 


BX 
[L_ERROR], AX 


AX, eee 
nyc ee ig (emaunis 
DRueee 
ap igi o 


[L_ERROR], 8000H 


CASE ce 











TNC. CIR 

el ee 

X_POS], 1 
Y_Pos], l 
XPOS 

Y_POS 
LINE SEG 
AX, TL_ERROR 
AX, |DELTA_Y 
AS IDELTe as 
ee avi 
iieeerR | 1 
DR_C2 


Or (Deena vy 
(END_CNT], AX 
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; CALDGULATE OBE TA x 


;PLOD BERSteeoint 
;TEST GOR TIECAT TV oeere 


;TEST FOR DELTA Yaa 


;DRAW LINE FOR SPECIAL CASE WHeRe 
;DX > O AND DY = 0 


-DA 2-0 SND Daa 
2D a= Dan 
-ADD IN CORRECTION BACT OR Wher 


- SMOOTHING 
;CORR = DX/(DY+1) 


;INIT ERROR VAL. WITH CORR. pee 
;TEST INCREMENT CoUMier. 


TES Geerno k= < 3 
-ERROR < 0 


sERROR >= 0 


;DY >a 


MOV By) | DELTA_X] ;ADD IN CORRECTION FACTOR FOR 


ADD eye. al » SMOOTHING 
INZ C_CASE3 *CORR = DY/(DK+1) 
IMP DR_C3 
C_CASE3: MOV Roe (DELTA Y} 
MOV Die, 
DIV Bn 
MOV [L_ERROR], AX >INIT ERROR VAL. WITH CORR. FACT. 
DR_C3: MOV AX, END cu :TEST INCREMENT COUNTER 
SUB AX, [INC_CTR 
INS DR_C3C 
IMP Er Di 
DR_C3Cc: TEST [L_ERROR], 8000H ;TEST FOR ERROR < 0 
INS EASE 2c 
ADD X_POS], 1 -ERROR < 0 
ADD UEeos|, 1 
PUSH X_POS 
PUSH Y_POS 
Gee LINE SEG 
HOV AX, [L_ERROR 
SUB De DELTA x 
ADD fe DEeTA Y 
MOV es | AX 
ADD me CTR|.. 1 
JMP DR_C3 
CASE_3C: ADD Y POS], l sERROR >= 0 
PUSH X_POS 
PUSH Y_ POS 
CALL LINE_SEG 
MOV a, aa 
SUB. oe OE LTA x 
MOV on | ax 
ADD Hie CIR 1 
JMP DR_C3 
TST_DYZ: TEST [DELTA_Y], 7FFFH ;TEST FOR DY > 0 
JINZ C5 OR_6 
MOV AX, OFFFFH *PROCESS SPECIAL CASE WHERE DX < 0 
SUB a OETA. X| -AND DY = 0 
MOV DEE TAK). AX 
CASE_4: SUB xX POS], l 
PUSH X_ POS 
PUSH Y_POS 
@eUie LINE_SEG 
SUB PDEETA <i, 2 
INS CASE 4 
IMP Eo eb 
C_5 OR_6: MOV AX, 0 :CASE 3 OR 4. DX <0 & DY > O 
SUB AX, oe 
SUB AX, {DELTA_Y 
INS CASE_5 
JMP CASE 6 
CASE_5: HOV Ax, 6 -DY <= ABS(DX) 
SUB AX, [DELTA_X] 
MOV [END_CNT], AX 
MOV BX, [DELTA_Y] :ADD IN CORRECTION FACTOR FOR 
ADD ei ae - SHOOTHING 
INZ C_CASE5 ‘CORR (bi DY+ 1 ) 
JMP Drees 
C_CASES: MOV Pyare 
SUB Pe DELiA. xX] 
MOV DX, 
DIY ae 
SUB [L_ERROR], AX -INIT ERROR WITH CORR. FACT. 
DRECS : MOV AX, aoe -TEST INCREMENT COUNTER 
SUB Pe INe CTR 


oT 


Dae oe 


Chest oC: 


CASE_6: 


C_ CASEG:: 


DR_Cé: 


DReCoG- 


CASESEC. 


EsliopL: 


JNS 
JMP 
Test 
JNS 
SUB 
Eur 
PUSH 
CALL 


oie 


PUSH 
CaLL 
MOV 
ADD 


MOV 


JMP 
MOV 
MOV 


MOV 
SUB 
JNZ 
JiTP 
MOV 
MOV 
DIV 
MOV 


MOV 
SUB 
JNS 
JMP 
Peo 


SUB 
ADD 
FUSH 
PUSH 
CALL 
MOV 
ADD 
ADD 
MOV 
ADD 
JM? 
ADD 
Puc 
Pook 
CALL 
MOV 
ADD 
MOV 
ADD 
JMP 
POR 
Foe 
POF 
POE 
PCr 
POE 
PUSH 


CASE _5C 
: 4 








Y_POS 
LINE_SEG 
AX, es 
Fy | De aay 
ae A 
iverear | 1 
DR_C5 
K-POS| 1 
Y_Ppos], 1 
K-POS| 
Y_POS 
LINE_SEG 
AX, [L_ERROR 
AX pabane. 
AX DEL GAG 
eae ax 
Eteecent.. 1 
DR_C5 
AX, [{DELTA_Y] 
(END_CNT], AX 





Bee 
BX, {DELTA_X] 
C_CASE6 


DR_Cé6 
AX, [DELTA_Y] 
DX, 0 


f 


B 
[L_ERROR], AX 


ie Bo ene) 
Demers 
DR_C6Cc 

a rebe 


[L_ERROR], 8000H 


CASE_6C 
SEPosie 
Y_POS], 1 
X_ POS 
Y_POS 

LINE SEG 

ae [petra 


A Dea ee 
AX, [{DELTA_Y 
ee AX 
iNGwan ce 1 
DR_C6 

Y POs], l 
X_POS 
Y_POS 
LINE SEG 
Ve Leones 
Ax, (DEDTALS 
FL SERROR|. AX 
INCscre) 1 
DR_Co 


D> 
AX 
Bx 
BX 
BA 
BA 
AX 











Cs 
Iw 


:TEST IF ERROR < 0 
-ERROR < 0 


;ERRORee- Oo 


;ABS(DX) < DY 


;ADD IN CORRECTION FACTOR FOR 
; SMOOTHING 
;CORR = Uy, (Paty) 


; INIT ERROR WITH CORRE Seer 
;TEST INCREMENT COUlMiaR 


sTES. HOR ERE OCR amo 
7 ERROR oO 


*ERROR >= Q 


;PREPARE TO EXIT PROGEDUREE 
*-RESTORING REGISTERSPaND. ae 
;REHOVE INPUI PARAME xs 
>FROM STACK 


RET 

END PROC DRAWW_LINE: 

: KKARAKAARKRKRARKAKARRKAARAKRRARKRRRRAR RARER RRKAARRRKKKKKKAARARAAARAKRRARRARAKRRARRAR 
-PROCEDURE LINE_SEG ACCEPTS AS INPUT AN X AND Y POSITION AND CONVERTS 
-THE POSITION INTO DISPLAYABLE PIXEL DATA 

PROC LINE_SEG; 


MOV [SEGMENT_E], ES ;SAVE SEG E STATUS 
MOV ES, {COL_PL ADDR] ;ENABLE SELECTED COLOR 
POP [RET_LS] “SAVE RETURN ADDRESS 
CALL ADJ_SL ;CONVERT ¥ POS. TO DISPLAYABLE S.L. 
Giige REL_VID_ADDR ;USE X & ¥ TO CALC REL. BYTE ADDR. 
POP BX -BX REGISTER HOLDS REL. BYTE ADDR. 
MOV Bye [20S] “MOV X POSITION TO AX REGISTER AND 
AND ax, “CALCULATE X BIT POSITION WITHIN A 
INZ XBIT1 “BYTE FOR DISPLAY PURPOSES 
MOV DL, 80H 
MOV CL, 7FH 
JMP OUT_LINE 
XBIT1: SUB UE, Gal 
INZ XBIT2 
MOV DL, 40H 
MOV CL, OBFH 
JMP OUT_LINE 
REIT? SUB Ripe! 
INZ XBIT3 
MOV DL, 20H 
MOV CL, ODFH 
JMP OUT_LINE 
REIT : SUB pied 
INZ XBIT4 
MOV DL, 10H 
MOV CL, OEFH 
: JMP OUT_LINE 
XBIT4: SUB Ae 
INZ XBITS5 
MOV DL, 8 
MOV CL, OF7H 
IMP OUT_LINE 
XBITS: SUB AL, 1 
INZ XBIT6 
MOV De, 
MOV CL, OFBH 
JMP OUT_LINE 
XBIT6: SUB AL 
INZ XBIT7 
MOV DL, 2 
MOV CL, OFDH 
JMP OUT_LINE 
XBIT7: MOV oy a 
MOV CL, OFEH 
OUT_LINE: CMP [COL_MIX], 1  ;TEST IF MIXING ENABLED 
INS LSC_MIX 
MOV AX, OCOOOH -CLEAR SELECTED LOCATION IN ALL 
MOV ES, AX ;COLOR PLANES IF NO MIXING 
SEG ES 
AND [BX], CL 
MOV AX, ODOOOH 
MOV ES, AX 
SEG ES 
AND [BX}, CL 
MOV AX, OEOOOH 
MOV ES, AX 
SEG ES 
AND foal ck 
LSC_MIX: MOV Ree GOL Pll | 
MOV ES, AX 
SEG ES ,SELECT E SEGMENT FOR ADDRESSING OF 
OR [BX], DL -VIDEO OUTPUT THEN OUTPUT A BYTE 


Cay 
ore) 


oo. Fw 
f 
? 


eee be Nass, Woes Rial Daley Pen Ce Ley a 


MOV 
MOV 
S26 
OR 
MOV 
MOV 
SEG 
OR 
PUSH 
MOV 
RET 


[es LS, ea See On, Se ee ral a ee my See RCT ee eel ee Cn ed ee IO OE RT a eT eh th Oo Ot 


| ers GOL Le, Sn I a a YN SN, N,N CN LONG] UR Wem Wee, Po eT ies te hee 


Ax | GOL. Pro 
ES, AX 


ES 
[BX], DL 
A. HOGS | 
ES, AX 

E 

or DL 

RET LS] ;RESTORE RETURN ADDRESS 
ES, [SEGMENT_E] ;RESTORE SEG E 


Ce ete eat lie at ened ee 


ed ee 2 en ee ee ee ee ee Om oe 


» PROCEDURE CIRCLE INPUTS X & ¥ COORDINATES GF THe CikCL2 Ca mer, 


SAND A RaDDUS VELUE. 


PROC CIRGEE 


CTR LP. 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
Sia L 
MOV 
SUB 
MOV 
MOV 
SUB 
JNS 
FOr 
POE 
PO 
POF 
Asli) s| 
cyl, 


IT THEN DRAWS A CIRCE 


Beas 
Bn, 1BE+S) 
eae ;GET X CENTER COORDINATE OFF Siaee 
Oe - 
[ern ax s;GET Y CENTER COORDINATE OFF Siaee 
Depa ee 
oe DX GET RADIUS VALUE AND SET 
Saree 0 *eINITIAL VALUES FOR X AND Y COORD: 
CL, 
DA, CL 
AG 3S 
AX, DX 
(P_VAL], AX 
A LORE ;TEST IF FINISHED DRAWING GiRGie 
Ax ROeeL 
Drawer ce 
AX 
a »>REMOVE INPUT PARAMETERS FROM STACK 
BX 
AX 


;EXIT SUBROUTINE 


: POINTS ON CIRCLE ARE PLOTTED IN GROUPS OF S WITH TREeY COURET its 
*SCALED BY 1/2 TO COMPENSATE FOR K:Y RATIONMIS IRE Diora 


DR GRC: 


MOV 
MOV 
ADD 
MOV 
PuSr 
MOV 
MOV 
Sik 
ADD 
Push 
CALL 
POE 
PUSH 
CALL 
PUSH 
CALL 
MOV 
MOV 
SUB 
MOV 
corte 
PUSH 
CALL 
PUSH 
CALL 
rusk 
MOV 


fo (2 aGaR sCALCULATE POINT 1 
DX, [KX REL 
oe, Moe 
Pros le ax 
AX 
AX, [Y_REL] 
Cia 
An Gn 
AX, [Y_CTR] 
ADJ_SL 
Fe 
Y_POS 
REL VID_ADDR 
[X_POS] 
CIR_PIXEL >PLOT (X_CENTER+X, Y_CENTER+Y) 
AX, bea -CALCULATE POINT 2 
DX, [X REL 
AX, DX 
[X_POS], AX 
(Y_POS] 
REL VID_ADDR 
[x_ Pos] 
CIR_PIXEL :PLOT (X_CENTER-X, Y_CENTER+Y) 
[X_POSs] :CALCULATE POINT 3 
BX, [Y_REL] 
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MOV 
SHR 
MOV 


PUSH 
CALL 
P@c 
PUSH 
CALL 
Poi 
CALL 
MOV 
MOV 
ADD 
MOV 
PUSH 
Pus 
CALL 
PUSH 
CALL 
MOV 
MOV 
ADD 
MOV 
Buse 
MOV 
MOV 
SHR 
ADD 
PrUsn 
CALL 
EOE 
PUSH 
CALL 
US yel 
CALL 
MOV 
MOV 
SUB 
MOV 
PUSH 
Pupil 
CALL 
PUSH 
CALL 
Evo 
MOV 
MOV 
SHR 
MOV 
Sue 
PUSH 
CALL 
ale 
PUSH 
CALL 
le Ulsye 
CALL 
MOV 
MOV 
ADD 
MOV 
PUSH 
Bus 
CaLL 
igieleye 
CALL 


TeSe 


Cia 

BX, CL 

a. (%_CTRI 
AX, BX 
ADJ_SL 
gee 
Y_POS 


REL _VID_ADDR 


[X_POS 
CIR_PIXEL 
AX, [X_CTRI] 
DX, [X_REL 
op 


[XPOS], AX 
AX 


[Y_Pos] 


REL_VID_ADDR 


[X_Pos] 

CIR PIXEL 
ae er 
DX, [Y_LREL 
Dx 
[X_POS], AX 
AX 


ae [X_REL] 


A CL 
CTR | 


ADJ_SL 
Wee os 
mer OS 


REL_VID_ADDR 


[X_Pos] 
CIR_PIXEL 
AX, Cea) 
DX, [Y_REL 
ne Dx 
[X_POS], AX 
AX 


[Y_POS 


REL _VID_ADDR 


[X_POS] 
CIRUPIxEL 
[X_POS ] 

BX, [K_REL] 
ei, 1 

on, (elu 

AX, [Y_CTR] 
AX, BX 

BX 

ADJ_SL 

fy Fos 
Y_POS 


Sei eres 


_POS] 
EI IMI 
A cee 
DX, [Y_REL 
ie Dx 
[X_POS], AX 
oe 


{¥_POS] 


REL_VID_ADDR 


[X_ Bos] 
CIR_PIXEL 


[P_VAL], 8000H 


5 


;PLOT (X_CENTER-X, Y_CENTER-Y) 
:CALCULATE POINT 4 


;PLOT (X_CENTER+X, Y_CENTER-Y) 
;CALCULATE POINT 5 


;PLOT (X_CENTER+Y, Y_CENTER+X) 


pCALCULADE FOINT 6 


*PLCie ASCENLER-Y , YoCENTER+K) 
;CALGUEST=S POINT “7 


sPLOT (X_CENTER-Y, Y_CENTER-X) 
;CALCULATE POINT 8 


;PLOT (X_CENTER+Y, Y_CENTER-X) 
Ve rons NEGA LVE=VALUE 


P_DECY: 


Re SO wh, eee ae, 


JNS 
MOV 
MOV 


ADD 
ADD 
ADD 
JiP 
MOV 
MOV 
SUB 
SHL 
ADD 
ADD 
SUB 
ADD 
JMP 


es anaes pele eRe 





6 
EVE | AX 
REBE Ul, 2 
CCL: 
Cip 
AX, et 
AX, [YOREL 
Re Ole 
iC aeale 
Eyer ak 
Y_REL], 1 
al ye 
CIRC LP 


;P := P + (4 * K) + 6 


;INCREMENT X COUNT 
-P := P+ 4% (XK - Y¥) + 10 


;DECREMENGSyY COUNT 
; INCREMENT X COUNT 


Loe) ee, eR I ee, eee a. At a 


Ce ee ee Te, a One en Oe ge mn, IO Yee ee Se J, a SO, I, ee IRM ORE ees UN re oe eee a 


“PROCEDURE CIR_PIXEL ACCEPTS AS INPUT A RELATIVE BYTE ADDRESS AND AN 
-X COORDINATE POSITION AND SETS THE CORRESPONDING PIXEL 
PROC CIR PIXEL; 


EPELT i: 


CPBIT2: 


CPElES: 


Creel: 


GPEI ES: 


Greite: 


CEbmiy: 
Cri ZoN: 


MOV 
POF 
POE 
FOr 
AND 
JINZ 
MOV 
MOV 
JiP 
SUB 
JNZ 
MOV 
MOV 
JMP 
JUS 
JINZ, 
MOV 
MOV 
JMP 
SUB 
JNZ 
MOV 
MOV 
gue 
SUB 
JNZ 
MOV 
MOV 
JTLE 
SUB 
JNZ 
MOV 
MOV 
JMP 
SUB 
JNZ 
HOV 
liOV 
JHP 
HOV 
MOV 
HOV 
MOV 
SHE, 
AND 
MOV 


SEGMENT_E], ES 


RET_CPE] 
DX 


Bx 
Dyes 
CPBIT1 
AL, 80H 
CL, 7FH 
CPIX_ON 
Doe 
CPBIT2 
AL, 40H 
CL, OBFH 
CPIX_ON 
Die 1 
CPBIT3 


Bees cl 
DX, QDOOOH 


can 


SAVE SOR a eo araS 
;SAVE REPURN ADDR a Ss 
;GE] XxX ees si 
;GET RELATIVE BYTE ADEMESS 


;CLEAR ALL COLOR PLANES AT SELECTED 
;PIXEL LOCATION BEFORE @sa2 Title 
;PIXEL [TO Pesta eD yeore: 


Pee Oe fe 6 8 8 8 se ee 


MOV 
SEG 
AND 
HOV 
HOV 
SEG 
AND 
MOV 
HOV 
SIE 
OR 
MOV 
MOV 
SEG 
OR 
HOV 
MOV 
2G 
OR 
Pus 
HOV 
Rew 


ES, DX 

ES 

fee cr 
DX, OEOOOH 
ES, DX 

ES 

(BX 

Dx 

ES, 

ES 

[BX], AL 
Bree (GOL PL | 
ES, DX 

ES 

(BX], AL 


Gal Gomer | 
S, Dx 
ES 

fBx] AL 

RET CPE] 


ES, [SEGMENT_E] 


COy ar Bex Soper, Cee 


ae eee 18 BW ig 


eae 
; {cot_PL1] (Oe tee eel Teepe STRED t@en0R 
A 


shea LORE Sec 


[ed Oe eX Tee Feel Coad OT me ees eee. CYS ot EN Dey ant LaNeent ey en Jeers MM Ay Ol Jey fet eee Oe, on el, Seo, Nee eee clea, Jee, | 


POETS eb Oa SO, rg es 8, SO Oa One) OL ce ig NO eae Oe 


: PROCEDURE SET_PIXEL ACCEPTS AS INPUT AN (X,Y) COORDINATE AND SETS THE 
gee eee oP ONDING PIAEL TO THE SYSTEM COLOR 
meee Se) _PIARL; 


eel : 


PBiT2Z: 


Eoer3: 


oli; 


Perr : 


Pere: 


MOV 
MOV 
POR 
MOV 
HOV 
CALL 
CALL 
POE 
MOV 
AND 
JNZ 
MOV 
MoV 
JHP 
SUB 
JNZ 
MOV 
MOV 
ee 
sive 
JNZ 
MOV 
MOV 
JMP 
SUB 
JNZ 
MOV 
MOV 
VTE 
SHOE: 
JNZ 
MOV 
MOV 
JTIP 
SUB 
JNZ 
MOV 
HOV 
JTIP 
SUB 
JNZ 


Bao 


SEGMENT_E], ES 


ee SPE] 
AX, [BP+4] 
[K_POS], AX 
ADJ_SL 
REL_VID_ADDR 


Bx 
De, I REEOS ] 
DX 


PBIT1 
AL, 80H 
Oho eae 
PIX ON 
Di ot 
PBIT2 
AL, 40H 
CL, OBFH 
PIX_ON 
On 
PBIT3 
AL, 20H 
CL, ODFH 
PIX_ON 
Dy, aul 
PBIT4 
AL, 10H 
CL, OEFH 
PIX_ON 
DL, 1 
PBITS 
AVE) as 
CL, OF7H 
PIX_ON 
ied 
PBIT6 
ee. 4 
CL, OFBH 
PIX_ON 
Dew 
PBIT7 


SSaVE ES SPATUS 
;SAVE RETURN ADDRESS 
(onl --~ POSITION 


BOS ene LAL ys Brie ADDRESS 
pHTAKE see et TASK 


PBIT?7: 


PIX_ON: 


END PROC S20 <P LXEL | 


MOV 
MOV 
JHP 
MOV 
MOV 
MOV 
MOV 
S2G 
AND 
MOV 
MOV 
Sig 
AND 
MOV 
MOV 
DEG 
AND 
MOV 
MOV 
DEG 
OR 
MOV 
HOV 
SeG 
OR 
MOV 
MOV 
SEG 
OR 
PUSH 
MOV 
RET 


Bice 


CL, OFDH 
PIX_ON 

AL, 1 

CL, OFEH 
DX, OCOOOH 
ES, DX 

ES 

(3x) eer 
DX, ODOOOH 
ES, DX 

zS 
[oer 
DX, OEOOOH 
ES Dx 

ES 


(Boo leek 

Dk (col Pia 
ES, DX 

ES 

[BX], AL 

Da) commer: | 
ES, DX 

ES 

[BX], AL 

DX, [COL_PL3] 
ES, DX 


ES 
[BA] AL 
RET SPE] 


;CLEAR ALL COLOR PLANES AT SELEGRS 
;PIXRL LOCATION SEFORA snc ims 
;PISEL DO ian Serer 


;SET PIAEL 80 DESTREDSeeee. 


;RESTORE, RETURN ADPRES> 


ES, [SEGMENT_E] ;RESTORE SEGMENT £ 


" PROCEDURE RESET PIXE BAC CEP Por aS INPULGan OL, Y) COORDINATE AND RESEGS 
;THE CORRESPONDING PIXEL BY WRITING 
PROC RESET yale 


REIT: 


Rolle: 


Reits: 


RBIT4: 


BREII>- 


MOV 
MOV 
POP 
MOV 
MOV 
CALL 
CALL 
FOP 
MOV 
AND 
JNZ 
MOV 
JMP 
SUB 
JNZ 
MOV 
JHP 
SUB 
JNZ 
MOV 
JMP 
SUB 
JNZ 
ees 
JM? 
SUB 
JNZ 
MOV 
wpe: 
SUB 
JNZ 


BP, SP 
fee El 
RET_RPE] 
AX, [BP+4] 
[X_POS], AX 
ADJ_SL 
REL_VID_ADDR 


a 
Dx, [8_P0S] 
DX 


RBIT1 
AL, 7FH 
PIX_OFF 
DL, 1 
RBIT2 
AL, OBFH 
PIX OFF 
DL, 1 
RBIT3 
AL, ODFH 
PIX OFF 
Dia 
RBIT4 
AL, OEFH 
PIN OFF 
Dime 
RSITS 
eyo 
PIX OFF 
Deel 
RBIT6 


"O" TO ALL COLOR PLANES 


ES ;SAVE ESgctsmes 


;SAVE RETURN ADDRESS 
;GET (x ees rr ae: 


;GET RELATIVE BYTE Abe ess 
;MAKE A BIT MASK 


MOV fi, OFBH 


JMP PIX_OFF 
RBIT6: SUB Din 1 
INZ RBIT7 
MOV AL, OFDH 
JMP PIX_OFF 
RBIT7: MOV AL, OFEH 
PIX_OFF: MOV DX, OCOOOH 
MOV ES, DX 
SEG ES 
AND foc) AL 
MOV DX, ODOOOH 
MOV ES, DX 
SEG ES 
AND [BX], AL 
MOV DX, OEOOOH 
MOV ES, DX 
SEG ES 
AND BX], AL 
PUSH RET RPE] ;RESTORE RETURN ADDRESS 
MOV ES, [SEGMENT_E] ;RESTORE SEGMENT E 
RET 


uo tL 0B Ae ee I i ee CC Cr EC a, er en ee ee Kay feces) een ny ue JUN, Seen Janneen, UMMOR( IU Yeti eer tu) kt We oe) TRU Jeet DRL el eal eur (Ney Il Senn Ue See Lm COMET Jem ERGs | ce | com a ee, ce, OO) ee! eee es Ce eee 


(ea el ee 


- PROCEDURE MitUieeacelon Ts USED To INTERFACE WITH HIGHER LEVEL ADA 
meeOGRANS IN ORDER TO HANDLE I/O PARAMETER PASSING 
Beee INQUIRE COLOR; 


MOV EY OL 

PUSH BP 

je10) Sel ek je Usha FOstd LON 
PusH BP+4 "PUsner COs rl rlOoNn 
CALL INQ_COLOR Ghee i Ae COLOR 
POR AX -COLOR VAL RETURNED 
POP Bie 

MoV BX, [BP+2] 

MOV fee ax ;RETURN PIXEL COLOR 
Reo 


END PROC INQUIRE_COLOR; } 

DRAKA AAARKAAKARARARARARARARARKRERRKRKRAKRRRKRARRRKRKRAKRRAKKRERKRRRRKRRRRRRRRER 
 RERKAARKAKARARAAKARKARKARKAR KAR AA RAK RKAKAKAAAARK AAA ARARKAR ARK AARARKA RAR RA 
:PROCEDURE INQ_COLOR ACCEPTS X & Y COORDINATES AS AN INPUT AND 

“RETURNS THE PIXEL COLOR CODE OF THAT LOCATION 

PROC INQ_COLOR; 


MOV BP, SP 
MOV AX, [BP+4] 
MOV [XPOS], AX 
POP TRET_IC] ;SAVE RETURN ADDRESS 
CALL ADJ_SL 
ene REL_VID_ADDR 
POP BX 
PUSH [X_POS] 
eon X MASK 
POP Re ;READ MASK 
PUSH ES -SAVE ES STATUS 
MOV AX, OCOOOH 
MOV ES, AX 
SEG ES 
MOV DL, {BX] ;READ DATA IN BLUE BIT PLANE 
AND De CL -TEST IF BIT SET 
INZ Bl 
IMP NO_B 

Bl: MOV AX, ODOOOH 
MOV ES, AX 
SEG ES 
MOV DL, [BX] -READ DATA IN RED BIT PLANE 
AND bi CL -TEST IF BIT SET 
INZ B2 
IMP B_NO_R 


Ee MOV Ax, JE0008 ;RED IS SET, THESE Grea 


MOV ES, aX 
SEG ES 
MOV DL, [BX] ;READ DATA IN GREEN BIT PLANE 
AND cL, Ch ;TEST IF BIT IS SET 
INZ 33 
IMP BR_NO_G 
B3: MOV ax, 0 :COLOR IS WHITE 
IMP EXIT IC 
BR_NO_G: MOV AX, 2 :COLOR IS MAGENTA 
IMP ExIn IC 
B_NO_R: MOV AX, OEOOOH ;BLUE IS SET, RED IS NOT, TEST GREEN 
MOV ES, AX 
SEG ES 
MOV DL, [BX] ;READ DATA IN GREEN BIT PLANE 
AND BI, , Ce 
INZ B4 
IMP B_NO_RG 
Ba; MOV Am, 0 ;COLOR IS CYAN 
JMP EXIT_IC 
B_NO_RG: MOV AX, 3 ;COLOR IS BLUE 
IMP EXIT IC 
NO_B: MOV AX, ODOOOH ;NO BLUE, TEST RED 
MOV BS ae 
SEG ES 
MOV DL, [BX] ;READ DATA IN RED BIT PLANE 
AND DEaReL 
INZ B5 ;RED IS SET, NO BLUE, TEST GREEN 
IMP NO_BR 
BS; MOV AX, OEOOOH 
MOV ES, AX 
SEG ES 
MOV DL, [BX] -READ DATA IN GREEN BIT PLANE 
AND Dl ae 
INZ B6 
IMP R_NO_BG 
B6: MOV ax, 4 ;COLOR IS YELLOW 
IMP Gaenere 
R_NO_BG: MOV AX, 6 ;COLOR IS RED 
IMP EXIT_IC 
NO_BR: MOV AX, OEOOOH ;NO BLUE, NO RED, TEST GREEN 
MOV ES, AX 
SEG ES 
MOV DL, [BX] ;-READ DATA IN GREEN BIT PLANE 
AND Dil 
INZ 87 
IMP NO_RGB 
B7: MOV AX, 5 ;COLOR IS GREEN 
IMP Ear 6c 
NO_RGB: MOV AX, 7 ;COLOR IS BLACK 
Bxrne 1G: POP ES *RESTORE ES 
PUSH aK 
PUSH [RET_IC] ;RESTORE RETURN ADDRESS 
RET 


, ene at ee eee Se ee Seer Me Jem RCT Pi Aes rome Oe me Ie en, Dee eee Oe Yeas eee Hee or Le Sey ee oT ee ei ee ae oe ee Bok eerie ete ee CO 


or 6 © § © © © © © © © © % 6 8 © © 8 6 € © © th Uh UU Ue Ue ee Le we ee eee. es ee 6 ee eee Oe One beer @ ie O8e6i cere neo en se 


: PROCEDURE A_MASK ACCEPTS AN A COORDINATE POSMTIGie aS INE Ua 
;AND REIURNS A BIT MASK BASED ON THE xX COORBIRETs 
PROC  A_MASK. 


EOP DA ;DAVE RETUEI SAP DRESS 
Oly AX ;GET X SOs!) 
AND A Gad 
JNZ mSltL 
MOV A&, 80H 
JMP Eales 
he SUA Ge. Bil AX, 
JNZ HB it 2 
MOV AX, 40H 
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JMP 
MBIT2: SUB 
JZ 
HOV 
JHP 
MBITS3: SUB 
INZ 
MOV 
JMP 
MBIT4: SUB 
JINZ 
MOV 
JMP 
MBITS: SUB 
INZ 
MOV 
JMP 
MBIT6: SUB 
JNZ 
MOV 
JMP 
MBIT? : HOV 
Bll _ XM: PUSH 
PUSH 
RET 
Po PROC X MASK; 


o RA KKAKRAKARARKKRARRKRKRRKRKRARKKKKKRRRKKKKRRRRKRKRRKKRKRKKKKAKRKARAKRKRKKKAKRKKRARR 


Cort irs oral Su ork DO Oe) We ees ened MO en) 


: PROCEDURE BOO eb omeecece ts AS INPUT 4 AND Y COORDINATES, A FILL 
meekok, AND A BOUNDARY COLOR AND PERFORMS A SCREEN FILL WITH THE 


EXIT_XM 
AX, I 
MBIT3 
AX, 20H 
EXIT_Xi 


AA , l 


AX, 10H 


EXIT _XM 
ae 1 


AA ;RETURN &X MASK 
Dx weOLORE RETURN ADDRESS 


Cur sak CL op Ws Sees ey eit Dun een Ja ray ) 


eeees COLOR UP 1O THE SPECIFIED BOUNDARY 


PROC BOUNDARY _FILL; 
POE 
POE 
POE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CALL 
PUSH 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RET 


Bue rROC BOUNDARY _FILL; 
RARAKAKKKKARARKKARKRKAERARKRAKRERARKAAARARKAKAARARKRAKE 
; PROCEDURE Peo eels AeeRECURSIVE FART OF THE BOUNDARY FILL PROCEDURE. 
meee UoeD TO AVOID UNNECESSARY PASSING OF THE COLOR PARAMETERS WHICH 
@eemecl CHANGE ON SUCCESSIVE RECURRSIVE CALLS. 


DX SOR VE SRETURM ADDRESS 


(ONE seal Dives seem een) Ie — 


RRA KRARARKKARAKARKKX 


meee) 6B FILL; 
POP 
MOV 
MOV 
ECE 
POP 
FP UESy al 
RUSH 
EU Se 
PUSH 
Buon 


RET_FILL] 

B_COLOR 

F_COLOR 
SEGMENT_FE], ES 
hon RCOLEPE} 
[SAV_COL1_STAT], AX 
AX, {COL_PL2 

herve GOl2 -Srad | , Ax 
Beer COL PLS] 
[SAV_COL3_STAT], AX 
B_FILL 

Ree Font) 
ES, |SEGMENT_FE] 
AX, [SAV_COL1_STAT] 
feck Prll. Ax 
AX, [SAV_COL2_STAT] 
heChe eh? | AK 
AX, [SAV_COL3_STAT] 
[COL_PL3], AX 


Exe [E-BOS 
BX, [Y_POS 
Y POS 
XPOS 
Xx 
ex 
BX 
[¥_BOS] 
Y_POS 


61 


(Coen ea Posi TONsOrr STACK 
pool Newbee, FOSLTTON GEE STACK 


Poe vee REocNL A POSITION 
PoOVOeE RESEND Y POSITION 


GARE 
POP 
MOV 
CHP 
JINZ 
JMP 
Rash ere. MOV 
CMP 
JINZ 
JMP 
Peele: PUSH 
PUSH 
GSLL 
Gait 
PUSH 
PUSH 
GAL 
CAEL 
MOV 
ADD 
PUSH 
PUSH 
GAL, 
MOV 
SUB 
PUSH 
PUSH 
CALE 
MOV 
ADD 
PUSH 
PUSH 
CALL 
MOV 
SUB 
PUSH 
PUSH 
Chie 
Eni ioe: POP 
POP 
RET 
ENDS PROC Bamreee 


INQ_COLOR 
AX 


[P_COLOR], AX 
i. Pee COLOR| 
HES osc 

EXIT =F 

RRS Ie COLOR 
A areata 
F_PIX 

EXIT_F 

& ace 


CIR_PIXEL 

AX, [X_POS] 

ox, 1 

BX 

[Y_POS] 

B FILL 

AX, [X_POS] 
I 


;COMPARE COLOR AT PRESENT LOCATE 
;WITH BOUNDARY COLOR 


;COMPARE COLOR AT PRESENT LOGSERe® 
;WITH Papeeeoren 


;SET LOCATION (X,Y) TO FILL Gomer 


;CALL BUPILE PASSING waa) s 


-CALL B_FILL PASSING “(xe 


;CALL BlUFILL PASSING eae 


;CALL B_FILL PASSING (X,Y-1) 
;RESTORE POSITION (X,Y) 


; KRARARRRKKRKRRARRARKRKRRKRRKRKRKRKKRARRKRARKRKRRRRKRRRRRRRKRRKARKRRARKRRRRRERRRRRRRRRRR 


Die) Ab ORL. 


[ ee See ene es eens very are, Weel ewe pec ey be et ned te oes Teel Ween en eee Pee ey 


: PROCEDURE AREA_FILL ACCEPTS AS INPUT AN (X,Y) POSITION AND A 
;FILL COLOR, IT FILLS AN AREA WHOSE BOUNDESRY [Ss] Deen epee a 
*PRESENT COLOR Of THE INPUT (4.7) Peoturene 


PROC. AREA _FILL; 
POF 
MOV 
HOV 
MOV 
HOV 
HOV 
HOV 
MOV 
FOR 
POP 
Pom 
PUSH 
RUSE 
CALL 
BOE 
PUSH 
PUSH 
CALL 
BUSh 
MOV 
MOV 


RET_AFILL] 
SEGMENT_FE] 
AX, [COL_PL1] 


[SaveGOLE Siar. 


PU eee? | 


[SAV_COL2_STAT 


Ax) | Consens 


SAV COLES asian 


F_COLOR] 
Y_POS 
xmeos 
XPOS 
Y_POS 
INO_COLOR 
B COLOR] 
een 





T2505 
A_FILL 
[REtERE Ti) 


ES, [SEGMENT_FE] 


;SAVE RETURN ADDRESS 


AX 


be | 
a 


AX 
;GET FILL COLOR OFF OF See: 


;GET COLORVOR INPUT Festi 


;SAVE REEERENECE COLOR 


>CALL RECURSIVE FILEDRPRCeE Riis 
sRESTORE RETURN ADDRESS 


Anew (oo eeOn ls fst] 


On 


/ 
e 


MOV 
MOV 
MOV 
MOV 
MOV 
Ren 


Ceetee ee oe) Se ee ea et we ce ee 


feenerl | Ax 


AX, [SAV_COL2_STAT] 


GCE SPL2 or ax 


BX, [SAV_COL3_STAT] 


PCO Pre on 


Cl Ue ot ea 


Oe) 6) te Oe ae ee el 


CAR Ex Kem BIC Ci Bat ey Lea 


See eC eee Ee Ose eee. wl) 8S Lela a we ROL eae OLe Le Oi i ee el ee). Oe. we 


+ PROCEDURE pelo Dee RECURSIVE FART OF “THE AREA FILL PROCEDURE. 
mabe omuoel TO AVOID UNNECESSARY PASSING OF THE COLOR PARAMETERS WHICH 
peemuereChaNGE ON SUCCESSIVE RECURRSIVE CALLS. 


emeOC A_FILL; 


EXIT_AF: 


o  6© 6© ¢ oo 6 «¢ 


MAIN: 


ROE 
HOV 
HOV 
BOR 
POr 
FUSt 
PUSH 
PUSH 
Pusa 
PUSd 
CALL 
FOr 
MOV 
Chie 
JNZ 
PUSH 
Fuog 
CALL 
CALL 
is 0pSae! 
PuSa 


RET 


END ADAGRAPH; 


Ld 


CX, bore 
Bx, |Ysees 
eee 
POS 

DX 

CX 

BX 

ot 
ae e> 
INQ_COLOR 


AX 

[P_COLOR], AX 
Ae, (B_COL@R] 
Ee Ae 

E eacet 


REL _VID_ADDR 
ras 
F_COLOR] 
COLOR 
CIR_PIXEL 
AX, [X_POS] 
youl 

AX 

[Y_POS] 
A_FILL 

AX, [X_POS] 
eo 

A 

[Y_POS] 
nEILe 

AX, [Y_POS] 
eel 
[X_POS] 

AX 


A FILL 
AX, [Y_POS] 


AA, 
[XPOS] 
A& 
A_FILL 


Pant 
fos OS 


Oe ws 8S: 


oA he Ro CURR eo DRESS 

ROn Neon be FOSLTION OFF STACK 
RObEeVeAl ewer OSLILONM OFF STACK 
POoveeeRe Sele avPOSLTION 


Pon eeo nears » POsliLOn 
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